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INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 


000) c Version 'v04-000' { 

0908 CPR eee eee AAA AAA AAAAAEE RE TERE REE AE TATE T ETERS 
Ce ® 

0005  C® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY e 

9006 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | 

9007 Ce ALL RIGHTS RESERVED. e 

0009  C®* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ( 

0010  C®* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ( 

0011 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ( 

0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ( 

001 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* ‘ 

9014 Ce TRANSFERRED, ; ‘ 

0016 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * i 

001 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ( 

0018 Ce CORPORATION. * 
t ® 1 

0020 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ( 

9081 Cs SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

® 

0058 Ce . ¢ 

bose “SRO agant ae > een ui secon ngraapiiag peat ys he ag mr ep pe ( 

0026 «6C¢ REVISION HISTORY: ( 

0027 ¢ 23-03-77 cP IF OUTPUTTING TO TMP FILE, JUST OUTPUT ( 

0028 «= ¢ EACH LINE UNTIL THE END OF THE CONSTANT ( 

oe? ¢ DEFINITION, THEN RETURN. 

0031 C 04-04-77 TC SPLIT LABEL 120 INTO 121 AND 122 ( 

O35 C WHICH ALLOWS LOOPING BACK TO TWO § 

O° C ALTERNATE POINTS (65 AND 70) 

0035 SUBROUTINE PCONST 

std C THIS ROUTINE IS CALLED WHEN A LINE HAS BEEN RECOGNIZED ( 

0038 ¢ AS A CONSTANT DEFINITION. THE IMPLICIT ARGUMENT ( 

0039 C INPTR IS THE OFFSET TO THE NEXT CHARACTER IN THE INPUT LINE. 

0041 C PCONST FIRST DETERMINES WHETHER THIS IS A SINGLE CONSTANT ® 

00¢ ¢ DEFINITION OR A LIST OF CONSTANT DEFINITIONS. IF A SINGLE 

004 C CONST Is B DEFINED, THE ROUTINE PSCONS IS CALLED TO 

9064 C PROCESS THE DEFINITION. 

0066 C OTHERWISE, PCONST COLLECTS THE CONSTANT PREFIX NAME, THE . 

004 C T HE BASE, THE INCREMENT FOR THE LIST. THEN IT 

0048 «= COLLECTS A CONSTANT DEFINITION AT A TIME. EACH CONSTANT 

0049 «=s¢ ITION CAN HAVE A NAME AND A VALUE. VALUES CAN 

0050 «—¢ BE ARBITRARILY COMPLEX EXPRESSIONS. EACH CONSTANT IS 

0051 ¢ PROCESSED AND OUTPUT. 

poss C WHEN A SINGLE LEADING RIGHT ANGLE BRACKET IS RECOGNIZED AFTER 

0054 C NUMBER OF CONSTANT DEFINITIONS IN A LIST, THE PROCESSING 

0086 ¢ OF THE CONSTANT LIST IS COMPLETE. 

5 
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PCONST -Sep-1984 01 3s VAX=11 - FORTRAN V3.4-56 Page 2 
Sep-19 4 iE 35: 3 DI SKSVMSMASTER: EMBL 32, SRCIMDL32.FOR:1 ° 
159 
160 INTEGER PTR, CLNCON 
i 
oles C THE CONSTANT CAN BE DEFINED WITH A "'C'' OR A "K'', THEY 
164 «¢ ARE SEMANTICALLY EQUIVALENT DEFINITIONS, BUT THE DEFAULT TAG 
0165 NAMES ARE DEPENDENT ON THE FIRST TOKEN [N THE LINE, 
0166 C NAMELY ''C'’ OR "K'. 
0168 TAGNAM (3) = TOKSTG (2) 
9170 C SEE WHETHER THE NEXT TOKEN IS THE NAME OF A CONSTANT OR 
im 6tC«* A LEFT ANGLE BRACKET. THE LATTER INDICATES THAT THIS IS 
176 C THE BEGINNING OF A CONSTANT DEFINITION LIST. 
0174 CALL GETTOK 
0175 IF (DEBUG) TYPE 300, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0176 300 FORMAT (' *,90 
0177 IF (DEBUG) TYPE »10- TOKTYP 
0178 310 FORMAT C TOKTYP IS '*,13) 
0179 IF (TOKTYP .EQ. LANL) GOTO 10 
0180 IF (TMPOUT) GOTO 160 
0181 CALL PSCONS 
0182 RETURN 
0184 «Ci THIS IS THE DEFINITION OF A CONSTANT LIST. COLLECT THE 
0185 C PARAMETERS FOR THE LIST. FIRST INITIALIZE SOME VARIABLES. 
0187 += 10 IF (.NOT. TMPOUT) GOTO 15 
0188 CAL LL L“QUTeLN 
0189 
0190 : 
0191 15 CALL MOVSTG (TAGNAM, CONTAG) 
019¢ CALL MOVSTG (PRENAM, CONPRE) 
019 MRBASE (1) = 1 
0194 MRBASE (2) = ‘0° 
0195 CALL MOVSTG (MRBASE, BLBASE) 
0196 MRINCR (1) = 1 
197 MRINCR (2) = "1° 
0198 CALL MOVSTG (MRINCR, BLINCR) 
0200 +¢ FOR A PREFIX ARGUMENT. IF PRESENT, THIS PREFIX REPLACES 
0994 ¢ bok SSTRUCT PREFIX FOR THE DURATION OF THE CONSTANT LIST. 
$8 CALL GETTOK 
0204 IF (DEBUG) TYPE 300, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0205 IF (TOKTYP .NE. ALPHA) GOTO 20 
0 06 CALL MOVSTG (TOKSTG, CONPRE) 
0 0 CALL GETTOK 
08 IF (DEBUG) TYPE 300, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
8 2 NAME 1S SAVED LOOK f FOR A TAG FIELD. IF ABSENT 
|) See THE ber AULT "tab pTEL D is R '$k_' AS STORED EARLIER AT 
i C THE START OF THIS ROUTINE. say LPHA STRING FOUND AS 
13 C THE SECOND ARGUMENT REPLACES THE LOEFAULT TAG. 
8 15 20 IF (DEBUG) TYPE 310, TOKTYP 


S388883Sss 


S8888888S88ssS 


a ee eee eee eee ee ee 2.08 284 24 28 o08 288 28s 08 


SOOOCOCOOoOooo Sooo 


[OO ONAUE WN" ODOND 
on 


WWI. WIARPOPOPOPONUPONUNUN 2 2 


wr 


ono 


PMOPITUNINIPOPOPSPOPofnofnoenonry 


im 
PUPPIES BEE EEE El 


Ooooooo 


NohorononoPonony 


MOPOPSNONMPEfoPofy 


ANNO 


moO 


0 


Sep-1984 
ifese 30771 38¢ 81: 


TYPE robs aj cates (1), 1 = 2, TOKSTG (1) + 1) 
oNE. A ) GOTO 30 
ToKst6. AtONTAG) 


) TYPE 300, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 


G NAME IS SAVED. SEE IF A BASE ARGUMENT IS SPECIFIED. 
SE ARGUMENT CAN BE AN EXPRESSION. 


Reve) TYPE 310, TOKTYP 
.NE. COMMA) GOTO 50 


Us) TYPE peers PTR, INBUF (INPTR) 


P_CINP 

INPTR, INBUF (INPTR) 

CINPTR) oe ".'3 GOTO 45 
CINPTR) .EQ. § ") LOR, 

UF CINPTR) .EQ. ' *) oR, 

UF CINPTR) .EQ. EOL) .OR. 

UF CINPTR) .EQ. 13°) GOTO 60 

NPTR'= BTR’* | 


F 
1) 
CINBUF (PTR = 1), CVALUE) 
(CVALUE, BLBASE, MRBASE) 


-NE. COMMA) GOTO 50 


o-u~ 


SION, IF ANY, IS SAVED. NOW RETRIEVE 
NT ARGUMENT. THIS CAN ALSO BE AN EXPRESSION. 


TR) 
ONE. *,") GOTO 50 


, PTR, INBUF (INPTR) 
NPTR, INBUF (INPTR) 
6 OR. 

£4. '°*) 150R. 


o e EOL) . 
~EQ, *3°)) “GOfo 60 
= MINPTR - PTR + 1 


) 
NBUF (PTR = 1), CVALUE) 
VALUE, BLINCR, MRINCR) 


, 


OFF BECAUSE 
- BACK UP 


INPTR = LASTNB (CINPTR = 2) 
— ARE ALL COLLECTED. NOW OUTPUT LINES TO BLISS AND 


IF (DEBUG) TYPE 400, PTR, INGUF (INPTR) 
FORMAT (' COMMENT STARTS AT ',13,' CHAR IS °,A1) 
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LINTYP = CONST 
CALL MDOUTL (CINPTR) 
CALL BDOUTL CINPTR) 


EACH CONSTANT NAME DEFINITION WITHIN A LIST STARTS WITH A COMMA 


CLNCON = 0 
CONEXP = .FALSE. 


NOW COLLECT THE CONSTANT NAME DEFINITIONS ONE AT A TIME UNTIL 
THE END OF THE LIST IS REACHED. 


CALL _GETLIN 
IF CENDF IL) RETURN 


GET A TOKEN AND SEE WHETHER IT IS A RIGHT ANGLE age 

OR AN ALPHA STRING. THE FORMER MEANS THAT THE CONSTA 

LIST IS FINISHED. THE LATTER MEANS THAT THIS IS ANOTHER 
CONSTANT NAME DEFINITION. 


ei; enh »AND. (CONEXP)) GOTO 77 
DEBUG) TYPE $00. fT sroneie (1), I = 2, TOKSTG (1) + 1) 


EBUG) TYPE 
TYP .EQ. RANGLES 50TO 150 
GOTO 


FO rr er es et OO 
"Tn > 


zen 
z 


THE DECLARATION OF A CONSTANT NAME. 
IALIZE SOME VARIABLES. 


GOTO 140 


IF (CONEXP) GOTC 86 
IF (TOKTYP .NE. ALPHA) GOTO 220 


THiS IS A NAME TO DEFINE. SAVE IT. 

CALL MOVSTG (TOKSTG, FLDNAM) 

CALL GETTOK 

IF (DEBUG) TYPE 300, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
NOW SEE IF THERE IS A VALUE FIELD. 

prove) TYPE 310, TOKTYP 

TOKTYP .NE. COMMA) GOTO 90 


8 
OU GET HERE, THIS IS A CONTINUATION LINE FROM A 
ION. SKIP OVER THE BLANKS AND TABS BEFORE TRYING 
THE EXPRESSION. 


oOnD~< o=-s 
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SANS 
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86 
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DO 87 INPTR = 2, INBUF (1) + 1 

F CCINBUF (INP Stel .NE. ' °) VAND. 

UF CINPTR) .NE. °  ')) GOTO 89 

CONTINUE 
ARRIVAL HERE IS AN ERROR 
GOTO 230 

THE NAME HAS BEEN SAVED. THE NEXT ARGUMENT IS AN N OPTIONAL 
EXPRESSION. IF IT IS OF ZERO LENGTH, THE ARGUMENT DEFAULTS 

TO THE VALUE OF ONE. SAVE THE LINE POINTER TO CHECK FOR ZERO 


LENGTH LATER. 


PTR = INPTR 
IF (DEBUG) TYPE 520, PTR, INBUF (INPTR) 

MAT (' EXPRESSION STARTS AT OFFSET ',13," CHAR IS ',A1) 
CALL GETEXP (INPTR) 
IF (DEBUG) TYPE 530, INPTR, INBUF (INPTR) 
FORMAT (* EXPRESSION STOPS AT OFFSET ',13,' CHAR IS ',A1) 
IF (CINBUF (INPTR) .€Q. ',") .OR. 
1 CINBUF (INPTR) .€Q. ' ') .OR. 
é CINBUF (INPTR) .£Q. °  ') .OR. 

(INBUF (INPTR) .£Q. ';*) .OR. 

4 CINBUF (INPTR) .€Q. EOL)) GOTO 
IF CINBUF CINPTR) .EQ. *=") CONEXP = .TRUE. 
IF (CINBUF (INPTR) .NE. "=") .AND. 
1 (CONEXP)) ENDEXP = . TRUE. 


AN EXPRESSION WAS FOUND, COMPUTE ITS LENGTH. 


IF (DEBUG) TYPE 540, PTR, INPTR 
FORMAT (' ast 13, END Is 13) 

INBUF (PTR = *) _ NPTR + 1 

IF (DEBUG) T¥PE 550, INBUF. (BIR - 1) 

IF (DEBUG) TYPE Tey “CINBUF (1), I = PTR, INBUF (PTR = 1) + 1) 


aD ng THE EXPRESSION STRING AND CONVERT IT TO MARS AND 
CALL MOVSTG CINBUF (PTR = 1), CVALUE) 

CALL CVTEXP (CVALUE, BVALUE, MVALUE) 

THE cmeess ie IS_PROCESSED. 

SAVE THE REST OF THE LINE AND GO LOOK FOR ANOTHER 
CONSTANT DEFINITION. 

GOTO 95 


THE OFFSET INTO THE INPUT LINE J 
THE EXPRESSION ARGUMENT WAS OMIT 
POSITION 


$ - BY A FEW CHARACTERS BECAUSE 


ED. BACK UP TO THE CORRECT 


INPTR = LASTNB (INPTR = 2) 


VAX=11_ FORTRAN 
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ge 6 


0387 «CC COMMA WAS GIVEN AFTER NAME, BUT NO EXPRESSION WAS GIVEN. ‘ 
0 5 C ADJUST INPTR. 5 
8 90 95 INBUF (INPTR) = INBUF (1) = INPTR + 1 é 
0391 100 CALL GETREM (INPTR) ¢ 
9 3 IF (CCLNCON .LT. 10) .OR. (CONEXP)) GOTO 121 : 
0394 «OC 10 CONSTANT NAMES HAVE BEEN DEFINED. CLOSE OUT THIS ¢ 
9 ms fe CONSTANT DEFINITION LIST, AND START ANOTHER. 
0 CALL TCNL ¢ 
9 GOTO 122 é 
04 C THIS IS A BLANK OR COMMENT ONLY LINE. § 
8 C OUTPUT IT AND GO BACK FOR ANOTHER. q 
04 110 CALL guTect é 
0% GOTO é 
04 C OUTPUT THE CURRENT LINE THEN GO GET ANOTHER. é 


121 CALL MDOUTL(PTR) 
CALL BDOUTL (PTR) 
CLNCON = CLNCON+1 
IF (ENDEXP) CONEXP = .FALSE. 
GOTO 70 


122 CALL MDOUTL(PTR) 
fae BDOUTL (PTR) 
= 


LNC CLNCON+1 
If (ENDEXP) CONEXP = .FALSE. 
GOTO 65 


140 CALL gyteun 
GOTO 7 


C OUTPUT THE FINAL CLOSING OF THE CONSTANT DEFINITION LIST. 


150 IF (TMPOUT) GOTO 160 
LINTYP = CONSTE 
CALL MDOUTL (INPTR) 
CALL BDOUTL (INPTR) 
RETURN 


VONVOURUN OOOO EW OSR IE AR WU OO SOE 


160 CALL OUT2LN 
RETURN 


wr 


ERROR REPORTING 


TYPE 2000 
ran (* INVALID BASE ARGUMENT IN CONSTANT LIST") 


TYPE 2100 
Aruna (* INVALID INCREMENT ARGUMENT IN CONSTANT LIST‘) 


PEPPRPRLELEPEREREREREREREERELE 


cekestp eae 
-—oo wu 
ror oO 
a 
ss Ss 
o 


MEG SOREL Pee P'S Bg Bs as 
— ERDIBH SLATSE BMD Asat for 


se 330, THE 2209 
5 0 A (" INVALID NAME IN CONSTANT DEFINITION") 


X-11 F on tase 33° 

SKSVMSMA MDL32.SRCIMDL32.FOR; 1 
d 

rk $38 TYPE 2300 

4 00 FORMAT (* INVALID CONTINUED EXPRESSION IN CONSTANT LIST") 

a0 RETURN 

5 


1 
2 END 
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PCONST Ip-Se -1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 8 
~3ep-19 4 it 7:26 DI SKSVMSMASTER: (MDL 32, SRCIMDL32. FOR: 1 ° 
PROGRAM SECTIONS 
Name Bytes 
0 SCODE 2 19 PIC REL LCL EXE 
1 SPDATA 7 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 9 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 5 PIC OVR REL GB SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL HR NOEXE RD WRT LONG 
Total Space Allocated 6790 


ENTRY POINTS 
Address Type Name 


0-00000000 PCONST 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 


bole lela leo lo lwlole lola lolelolololololololololo! =) 


400000006 I*4 BINVAL 11-00000000 1*2 BLANK 9-00000212 1x2, BLBITS 9-00000332 1*2 BLFOFS 
SpobpOtee te CBASE erpogposE te FINCR™ 3790900003 isd EENTON 29000004 25 FOL 
500000016 L#2 CONEXP -9000000 I*) DEBUG ~HonGbOTE Les EADE GP 5-00000000 L*> ENDFIL 
1400000004 +2 EOLCH 12-0000 OO Is ERR 00000002 #2 ERROR 5-0000000E L*2 ERROUT 
5~po00000 Tes geOeAS 12- 2900 § icS teen. 10-00000008 425 tape tn 19 09000u6 135 TNPTR 
9-0000031¢ I*2 LASLIN S-popobote 425 eRpsiz 4-0000000A Ig LINELEN 9-00000126 +2 LINTYP 
9-00000218 I*2 LPT 9-00000914 I*2 LSBSIZ 13° 4 [2 MAR 19-0000015A Is2 RARPIR 
1200000006 I+2 RAs “O0000RGE I*2 HNGCNT -900 1*3 NEGCNT 4-00000000 Is NUM 
3~popp000G te SaRlTS ~B000000 kad SMAge 3-09000130 fed Sorses ~Ho90000e fd SreraL 
gO opobbDS Les STROK 1i- ° o ° ; #5 TAB 13- 09 006 [+3 TMP ~b806 ore t*S TMPIN 
5-0000001A Le? TMPOUT - 1*3 TOKTYP 15-0000000A 1#3 TTY -9900 a8 {#3 UNDOK 
9-00000082 [*2 UNISIZ =0000000A L#2 VMASK 00000124 1#2 VOFSET 9-00000128 [#3 VSIZ 


ARRAYS 


Address Type Name Bytes Dimensions 
6 A I*2 AMASK 4 (2) 
6- 196 I*2 ASIGN 4 (2) 
9 S5iE I*2 BLBASE 166 (81) 
10 19C I*2 BLIBUF 240 (120) 


Attributes 
CON SHR RD NOWRT LONG 


SP ts 1 


2 | 
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900000662 162 (81) 
=000001 (10) 
1 (81) 
(10) 
1 (6) 

4 (2) 

8 «499 

0 (10) 

(16) 
(16) 
19 (9, 11) 

4 (¢s 

6 (3) 

162 (81) 
20 (10) 
se £193 

6 (13) 
$8 (14) 
12 (6) 
24 (12) 
12 (6) 

4 $6? 
1S &3} 
15 (8) 
22 (11) 
1 (9) 
18 (9) 
12 (6) 
14 (7) 

4 (2) 

4 (2) 
72 (36) 
4 (2) 
166 (83) 
g (3) 
13 (133) 
18 (9) 
16 (8) 
240 (120) 
16 (81) 
16 (81) 
1g (81) 

(32) 

4 (2) 

133 (133) 

4 (2) 
20 (10) 

6 (3) 

4 (2) 

(16 

(16 

(16 

(4) 

af | 
& (3) 
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PCONST 16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4-56 Pa 10 
8790871382 8} He $3 PT EKSUMSMAS TEN: FHOL 32° SRCIMDL32. FOR: 1 ad 
9-0000021A I*2 RSTLIN 180 30) 
aed Es I*2 SEMSPC 6 (3) 
6-000000F I*2 SPCSTG 4 (2) 
$-90000092 1#5. STRStG 33 (18) 
2-800 O72 I*2 SUFDEF (4) 
9- O72 I*2 SUFNAM 32 (16) 
6-0000014C I*2 TABEQS (4) 
6-QO00000CE I*2 TABLAN 6 (3) 
6-000001CA I*2 TABOPR 8 (3) 
S-OO0000KC 125 TABRAN 3 
Paettitdite I*2 TABSTG 4 (2) 
o_ponea se It2 TAGNAM 3§ (16) 
steebboos 158 foxdtt ip 
6-000002 4 I*2 UNDVLD 14 (9) 
6-0000007A I*2 UNITYP 4 (2) 
6-00000192 I*2 ZEROSG 4 (2) 
6-000000A2 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address’ Label Address Label Address’ Label Address’ Label Address Label 
0-000000A1 10 0-00000083 15 0- 944 SEC 60 -00000 38 3 0-00000354 45 0-0000042A 50 
0-00000449 60 0-0000049E 65 0-000004A 0 -0000055B 77 ee 80 0-0000060A 86 
et 87 0-00000643 89 0-000007F8 90 -00000817 95 ee 100 0-0000084E 110 
0-00000858 121 0-0000087E 122 0-000008A4 140 -Q00008AE 150 0-000008CE 160 ee 200 
te $39 0-000008D6 e60 0-000008EE Fe 1-00000000 32. 1-00000008 310° 1-00000018 400° 
1-0000003D 520° 1-0000006C 0° 1-0000009A 540' 1-00000085 550° 1-000000C4 2000° 1-Q00000EE 2100° 
1-0000011D 2200° 1-00000144 2300' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
BDOUTL CVTEXP GETEXP GETLIN GETREM GETTOK 
I1*2 LASTNB MDOUTL MOVSTG I*2 NEXTNB OUT2LN OUTBCL 


SS . —~, 
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ifs ety 7 8} 3h: 3 DISKSVMSMASTER: R: YMDL 32, SRCIMDL32. FOR: 1 ° 
000) SUBROUTINE PSCONS 

itd C THIS ROUTINE waitin A SINGLE CONSTANT DEFINITION THAT 

0004 C 1S NOT PART OF LIST. ba ys deel DEFINITION og i WO 

0005 C ARGUMENTS, BOTH MOF WHICH A RE REQUIRED == THE NAME AND THE 

0006 C VALUE. THE VALUE IS AN ARBITRARILY COMPLICATED ERPRESSION. 


o 


INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
INTEGER PTR 


INITIALIZE THE LINE TYPE. wha THAT THE TAG NAME WAS 
INITIALIZED IN THE ROUTINE PCONST, WHICH CALLED THIS ROUTINE. 


LINTYP = SCONST 


NOW LOOK AT THE TYPE OF TOKEN THAT HAS BEEN FOUND BY THE 
CALLING ROUTINE, PCONST. 


IF (DEBUG) TYPE 500, (TOKSTG (I), I = 2, TOKSTG (1) + 1) 
500 FORMAT (° 


510 FORMAT (* TOKTYP IS 

IF (TOKTYP .NE. atpuas: GOTO 100 
CALL MOVSTG (TOKSTG, FLDNAM) 

ALL GETTOK 

F 


aon 


EBUG) TYPE 510, TOKTYP 
OKTYP .NE. COMMA) GOTO 110 


C 

IF (D 

IF (T 

i E ae E ws ote SAVED. THE NEXT ARGUME 
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31 C NT IS AN EXPRESSION. 
38 C HE OFFSET TO THE BEGINNING OF THE EXPRESSION IS SAVED 

3 C O LATER DETERMINE WHETHER THE EXPRESSION IS OF NON-ZERO 

34 C LENGTH. 

35 

36 PTR = INP 

37 4 <eBuG) RT yPE ere. PTR, INBUF (INPTR) 

38 330 FORMAT (° wits ION STARTS AT OFFSET ',13," CHAR IS ',A1) 
39 CALL _GETEXP_(INPTR) 

40 i (DEBUG) TYPE yO, INBUF CINPTR 

141 340 FORMAT (* EXPRESSION STOPS "al OFFSET mn," CHAR IS ',A1) 
166 IF CINBUF CINPTR) .EQ. ',") GOTO 110 

Hye C AN EXPRESSION WAS FOUND. COMPUTE THE LENGTH OF THE EXPRESSION. 
146 INBUF (PTR = 1) = INPTR = PTR + 1 

+t 4 IF (DEBUG) TYPE 500, (INBUF (I), I = PTR, INBUF (PTR = 1) + 1) 
149 C NOW SAVE THE EXPRESSION STRING AND CONVERT IT TO MARS 

130 C AND BLISS. 

136 CALL MOVSTG (INBUF (PTR = 1), CVALUE) 

15 CALL CVTEXP seyA UE, BVALUE, MVALUE) 

138 INPTR = INPTR 

136 C THE EXPRESSION IS peocts 5st, NOW OUTPUT i DEFINITION 

4 C TO THE MARS AND BLISS TRANSLATED OUTPUT FILES. 


CALL MDOUTL (INPTR) 
CALL BDOUTL (CINPTR) 
RETURN 
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100 TYPE 1000 
A opal (* NAME MISSING IN CONSTANT DEFINITION’) 


110 TYPE 1100 
1100 4 pal (* EXPRESSION MISSING IN CONSTANT DEFINITION") 
END 
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ENTRY POINTS 
Address Type Name 


PSCONS i “$e0-1984 81:35:58 DERKSUMGMASTER: EMBL 3S SRCIMDL32. FoR; 1 


0-00000000 PSCONS 
VARIABLES 
Address Type Name Address a o> Name Address Type Name Address Type Name 
BINVAL 11- $4 I*2 BLANK 9- 12 %I*2 BLBITS 9- 332 1*2 BLFOFS 
BLI 10- I*2 BLIPTR 5- 12 L*2 BLKOUT 3° 12A I*2 BOFSET 
CBASE 9- : I*2 CINCR 4- I*2 COL - L*2 CONEX 
DEBUG - L*2 ENDEXP - 0 L*2 ENDFIL 11- on I*2 EOLCH 
R - L*2 ERROR - F L*2 ERROUT - g L*2 FLDLAS 
FOF SET - #2 SIGN - BS I*2 FSIZ - ° I* 
INP 10- I*2 INPLIN 10- AG I*2  INPTR - € I*2 LASLIN 


2 
$ep-1984 01: 3 VAX=-11 FORTRAN V3. Pa 13 
if Bep=1986 01:57:56 DISKSUMSMAS TER: FAD _ ce teen FOR:1 > 
9 16 I*2 LFDSIZ 4- A I* INELEN 126 I*2 LINTYP - * PTR 
350000216 I*2 LSBSIZ l2- be I* 19A {25 MARPTR - ¢ |: MAS 
Se Bie Bite = ERS 1g 
5- L*2 SMASK - I*2 SOFSET 9 L*2g STGEQL - : L*2 STROK 
oS ERP GRRE ih 
5-Q000000A L*2 VMASK -00000124 I*2 VOFSET 0 +3 I*2 VSI2Z 
ARRAYS 
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LABELS 
Address’ Label 
0-000001D6 100 
1-00000075 1000' 


Type Name 
BDOUTL 


MARBUF 


ZRLAHY 
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0-000001 
1-000000 
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BE 1100" 
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Address’ Label 
1-00000047 340° 


Address’ Label 
1-00000018 330' 


Type Name 
GETTOK 


Type Name 
GETEXP 
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DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 
Address’ Label Address Label 


1-00000000 500° 


Type Name 
MDOUTL 


1-00000008 510° 


Type Name 
MOVSTG 
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11 FOR on tase 33° 
SVMSMA MDL32.SRCIMDL32.FOR; 1 


ifoseont9ge B187:g5 ae 


xX 
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$00) f Version v02-001 
g CRM eRe EEE AAAAAAAA AAA EEEAEE EEE ETEEEE ATER EEEE 
cf * 
5 C* COPYRIGHT (c) 1980 * 
Bene eS BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. . 
0008 C* THIS SOF TWARE i BS gah UNDER A LICENSE AND MAY BE USED AND COPIED * 
0009 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ane THE * 
0010 C* INCLUSION OF ORE ABOVE CoerR Lent NOTICE. THIS SOFTWARE OR THER * 
0011 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
Bot¢ C* OTHER PERSON. NO TITLE TO ano OWNERSHIP OF THE SOFTWARE IS HEREBY * 
OF Fe TRANSFERRED. * 
w 
0015 C* THE INFORMATION IN THIS SOFTWARE IS wit TO CHANGE WITHOUT NOTICE * 
Bote C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
DEA ee CORPORATION. * 
we ® 
0019 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
bose ™ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: ® 
it t4 Cee eee eee ARAAAAAAAAAAERAEAEEETERKEERERKEEEEES PAAAAAAAALAAAALELALLAAE ASE GS 
C 
$05% C REVISION HISTORY: 
0025 C 22-03-77 cP IF ‘?-- IN A NEGATIVE CONTEXT, JUST 
0026 C SAVE THE CUR RREN NT NEGATIVE COUNT, AND 
itd : OUTPUT THE LINE TO THE TMP FILE. 
94 C 19-04-77 TC USE THE ADDITIONAL CONTEX VARIABLE 
oo90 C DISCUSSED IN IN:MDL32CMN.CMN 
itt) SUBROUTINE PMARK 
0034 C SAVES THE CONTEXT OF THE CURRENT STRUCTURE DECLARATION SO 
ones C THAT THIS CONTEXT CAN BE RESTORED AT SOME LATER POINT. 
st te INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
0140 INTEGER INDEX 
0141 
Big CALL GETTOK 
014 IF (TOKTYP .NE. rs id GOTO 1000 
0144 INDEX = INTVAL (TOK th 
Bié? if (CINDEX .LE. 0) 
146 (INDEX .GT. 63) GOTO 1000 
de IF (TMPOUT) GOTO 20 
148 CALL SAVCTX CINDEX) 
3187 INPTR = INPTR = 1 
150 CALL MDOUTL (CINPTR) 
B12) CALL BDOUTL (INPTR) 
136 RETURN 
154 20 CONTEX (1, INDEX) = NEGCNT 
155 CONTEX (9, INDEX) = 1 
136 CALL OUT2LN 
4 RETURN 
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ERROR REPORTING 
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; 1008 TYPE 101 


FORMAT INVALID ARGUMENT TO MARK COMMAND ') 
ie 
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Yet 3o° 
:57:26 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 1 


-Sep-1984 01 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 142 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA § PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 451 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4105 
ENTRY POINTS 
Address Type Name 
0-00000000 PMARK 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
TERR ON CE I*2 BLI 10- 4 8C I*2 BLIPTR 2-609 0612 L*2 BLKOUT 9-0000012A I*2 BOFSET 
16C I*2 CBASE 9- 3 16E I*2 CINCR 4-000 B86 I*2 COL 5-00000016 L*2 CONEXP 
8-00000000 I*2 DEBUG 2 0000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL uF '4''4''4 I*2 EOLC 
12-00000008 I* R mt 4443 L*2 ERROR - Bop ot L*2 ERROU 3-800 dh L*2 FLDLAS 
9-00000122 I*2 FOFSET 9-00 § I*2 FSIGN - 8 ve I*2 FSIZ ¢- 000000 I*2 INDEX 
12-00000000 I* 10- QOOOA8 I*2 INPLIN 10-00 A6 I*2  INPT -0000051C I*2 LASLIN 
9-00000216 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 9-000 138 I*2 LINTYP 3-88 18 I*2 LPTR 
9 14 I*2 LSBSIZ 7 3 04 I*2 MAR 10-0000019A I*2 MARPTR 12-00 of I*2 MAS 
—E I* GC = 3 I*2 NEGCNT 4-0000 $08 1*4 9-00000334 I*2 OBBITS 
33 It FSIZ 9-00000 I*2 OQUNSIZ -00000018 L*2 POSOFF 5-0000000C L*2 SMASK 
1 I*2 SOFSET - F: L*2 STGEQL 3 88 B08 L*2 STROK uP 4444 I*2 TAB 
1 I* MP - C L*2 TMPIN - A L*2 TMPOUT 9- I*2 TOKTYP 
12-Q000000A I*2 TTY - 9 L*2 UNDOK -000000B2 I*2 UNISIZ 5-0000000A L* MAS 
9-00000124 I*2 VOFSET 9-000001 I*2 VSI 
ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 
Rie 13 Rit re 
1900000196 I*2 BLIBUF 225 (120) 
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g730713 4 8:25:83 DISKSVMSMAS TER: CMOL 32, SRCIMDL32. FOR: 1 . 

9 1*2 RSTLIN 180 (90) ( 
I*2 SEMSPC 6 (3) ( 
1*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) ( 
I*2 STRSTG 32 (16) 
I*2 SUFDEF (4) ( 
I*2 SUFNAM 32 (16) ( 
I*2 TABEQS (4) ( 
I*2 TABLAN 6 (3) ( 
I*2 TABOPR 6 (3) ( 
I*2 TABPRN 10 (5) ( 
I*2 TABRAN 6 (3) ‘ 
I*2 1ABSTG 4 (2) ( 
I*2 TAGNAM 32 (16) ( 
I*2 TMPVAL 162 (81) ( 
1*2 TOKSTG 80 (40) ( 
I*2 UNDVLD 18 (9) ( 
I*2 UNITYP 4 (2) ( 

I*2 ZEROSG 4 (2) 

I*2 ZRLAHY 10 (5) 

LABELS 
Address Label Address Label Address’ Label 
0-00000052 20 0-00000076 1000 1-00000000 1010° 
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igen 19 81:35:88 ISCSUMSMASTER:EMOLS2°SRCIMDL32.FOR;1°%" = 


0159 30 IF (LINTYP .€Q. ORIGIN) GOTO 35 vA 
0160 CALL RESCTX CINDEX) 

016] GOTO 4 

atk 35 CALL RESETO CINDEX) 

0164 40 INPTR = INPTR = 1 
0165 LINTYP = ORIGIN 

0166 CALL MDOUTL (INPTR) 

0167 CALL BDOUTL (INPTR) 1 
0168 RETUR ' 
0170 C POINTER OR ORIGIN IN NEGATIVE CONTEXT. 

0172 50 

0173 IF (CONTEX (9, INDEX) .LE. 0) GOTO 55 

0174 NEGCNT = CONTEX (1, INDEX) 

0175 CALL OUT2LN 1 
ite és : 
0178 C POINTS OUTSIDE BLOCK OR IS AN ‘'O'' COMMAND 

0180 55 CALL OUT2LN AR 
0181 CALL STANEG 

0182 RETURN 

0183 

0184 C ERROR REPORTING 

0186 1000 TYPE 1010 

0187 1010 FORMAT (° INVALID POSITION NAME") 1 
0188 RETURN 

0189 

0190 1100 TYPE 1020 

0191 1020 FORMAT (* POSITION NAME NOT DEFINED") 

0192 RETURN 

019 END 


IF (LINTYP .EQ. ORIGIN) GOTO 55 
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ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
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BF ge NARS UMGRAS TON: ROU 3S SRCIMDL32.FORS 1°” 
RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 1 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 1 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
Type Name Address Type Name 

I*2 BLBITS 9-00000332 I*2 BLFOFS 

L*2 BLKOUT -0000012A I*2 BOFSET 

I*2 COL -00000016 L*2 CONEXP 

Led ENDFIL 11-00000004 I*2 EOLCH 

L*2 ERROUT 3-90000010 L*2 FLDLAS 

I*2 FSIZ Spe onosy I*2 INDEX 

I*2 INPTR =990 iC I*2 LASLIN 

I*2 LINTYP 9-00000218 I*2 LPTR 

I*2 MARPTR 19-0 0 9¢ I*2 MAS 

1*4 NUM 00000334 I*2 OBBITS 

ted STROK. 1300000008 135 tap 

+35 fapoor $700000080 [#3 TORTYP 

I*2 UNISIZ 5-0000000A L*2 VMASK 
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STLIN 180 (90) 
SEMSPC 6 (3) 
SPCSTG 4 (2) 
SPHYSP (4) 
STRSTG 3 (16) 
SUF DEF (4) 
SUF NAM 3 (16) 
TABEQS (4) 
TABLAN 6 3} 
TABOPR § (3) 
TABPRN 1 (5) 
TABRAN 6 (3) 
TABSTG 4 (2) 
TAGNAM 3 (16) 
TMPVAL 16 (81) 
TOKSTG 8 (40) 
UNDVLD 1 (9) 
UNITYP 4 (2) 
ZEROSG 4 (2) 
ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address’ Label Address’ Label Address Label Address Label 
0-00000060 20 0-0000006C 30 0-0000007D 35 0-00000085 40 0-000000A1 50 O-O00000CF 55 
0-000000DE 1000 1-00000004 1010° 7-0000001D 1020' 0-000000F6 1100 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
BDOUTL GETTOK I*2) INTVAL MDOUTL OUT2LN RESCTX 
RESETO SAVCTX STANEG 
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19-04-77 TC USE NEW CO ONTEX VA VARIABLE DISCUSSED 
IN she $:MDL3 


SUBROUTINE SAVCTX (IND) 


SAVES THE CONTEXT OF THE STRUCTURE DECLARATION. THE 
VARIABLES SAVED ARE AS FOLLOWS: 


BLFOFS = THE TOTAL NUMBER OF BYTES ee SO FAR. 
BOFSET = THE BASE OFFSET OF THE LAST GROUP vf SUBFIELDS. 
FOFSET = THE VALUE BLFOFS WILL BECOME U HEN THE TOTAL ALLOCATION 


1S _ PERFORMED FOR THE LAST FIELD DECLARATION. 
SOFSET = THE VALUE BLFOFS WILL BECOME WHEN THE ALLOCATION 
IS PERFORMED FOR THE LAST SUBFIELD DECLARATION. 
LFDSIZ = IZE IN BYTES THE LAST FIELD DEFINED. 
LSBSIZ = THE TOTAL SIZE IN BYTES OF THE LAST SUBFIELD DEFINED. 
LASLIN = THE TYPE . THE LAST DEFINITION LINE PROCESSED. 
FLDLAS = A BOOLEAN THAT Tels WHETHER THE LAST DEFINITION 
PROCESSED WAS A FIELD OR A SUBFIELD, OR NEITHER. 
TRUE MEANS FIELD OR SUBFIELD. FALSE MEANS SOMETHING ELSE 


THE ARGUMENT IND IS THE INDEX INTO THE CONTEXT TABLE. 
INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
INTEGER IND 


CONTEX (1, IND) = BLFOFS 
CONTEX Ge IND) = BOFSET 
CONTEX (3, IND) = FOFSET 
CONTEX (4, IND) = SOFSET 
CONTEX (5, IND) = LFDSIZ 
CONTEX ¢. IND) = LSBSIZ 
CONTEX (7, IND) = LASLIN 
CONTEX (8, IND) = FLDLAS 
CONTEX (9, IND) = 0 
RETURN 

END 
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ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


Total Space Allocated 


Name 
SAVCTX 


Name 
BINVAL 
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RD NOWRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

RD WRT LONG 

Type Name Address Type Name 
I*2 BLBITS 9-00000332 I*2 BLFOFS 
L*2 BLKOUT Fam 4 942 A I*2 BOFSET 
I*2 COL 5-00000016 L*2 CONEXP 
L*2 ENDFIL 11- 38 04 I*2 EOLC 
L*2 ERROUT 5- 10 L*2 FLDLAS 
I*2 FSIZ AP-00000004a I*2 IND 

I*2  INPT 9-000 B38 I*2 LASLIN 
I*2 LINTYP 9-00000218 I* PTR 
I*2 MA 0 of It AS 
I*4 NUM - 00354 I*2 OBBITS 
L*2 POSOFF *-8 O000C L*2 SMAS 
L*2 STROK 11-0000 be I* 

L*2 TMPOUT 9-0000 I*2 TOKTYP 
I*2 UNISIZ 5-O000000A L* MAS 
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DOLBIT 
DOLBYT 
DOLDEF 
DOLFLD 
DOLGBL 
DOLLAR 
DOLVLD 
DOTBLK 
DOTEQS 
DOTMAC 
ENDMAC 
EQULST 
EQUTAB 
EXCLSP 
EXPCLO 
EXPOPN 
FLDNAM 
HYPHEN 
INBUF 
LANHYP 
LINE 


try Suhr he > Py ther ty pot 4 wp te ty 98 


RBOSK— NNT Soo Noon a 2 
MO SSo5550D05 : = ase 

SD OOOOCOOCOOS see ae ; 

v oo 


PODOOD0000 bd 


6-00000 3 


= 
—OOow 


w Ww 
OF FOWONNM LOO OOM oOrvos 


os 


— 


—_— — 


ey 


~www Owe wuevyuwr www 


LOLOL LL LL ym ee, a, lm, my me, 
~~ 


VAX=11 FORTRAN 


Ee ag 
DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 


ET 
LA 


Page 
4 9 


SRCIMDL32.FOR; 


6 


{33 


3. 
MOL 


et FORTR y 
DISKSVMSMASTER: 


3£p- 1986 81:87:58 
INTO THE 


AAA Anan 
eaoaacsaaaa 
22222222 


Pe 
ses © & &©@ & @&@ « & 
HUN TN OR. CO 
et et ee ee ee ee ee ee 


>< HC OK OK OK OK OK OK 
— ww 


E 
$ 
CONTEXT TABL 
INCLUDE *SRCS$:MDL32CMN.CMN/NOLIST' 


VBVVYVUYUW > 
nhunnunnunu 
De) el ol ood ee gd 


SUBROUTINE RESCTX (IND) 
INTEGER IND 
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g73e0718 4 Bt; 7:26 DLSKSVMSMASTER: LOL 32° SRCIMDL32. FOR: 1 . 
PROGRAM SECTIONS 
Name Bytes Attributes 
g SCODE es PIC CON REL LCL SHR EXE RD NOWRT LONG 
TEXT 451 PIC OVR REL GBL SHR NOEXE WRT LONG 
4 VARS 15 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS PIC OVR REL GBL SHR NOEXE RD WRT LONG 
3 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 3983 
ENTRY POINTS 
Address Type Name 
0-00000000 RESCTX 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4 4 BINVA 11-00000000 I*2 BLANK 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
13-00900000 Is BLI : a 44 to I*2 BLIPTR 5-00000018 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-0000016E I* INCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
I*2 DEBUG 2-30 008 14 L*2 ENDEXP 5- 4 80 L*2 ENDFIL 11-00000004 I*2 EOLCH 
1 I*2 ERR = si 02 L* RROR 5-Q000000E L*2 ERROU 5-00000010 L*2 FLDLAS 
1 I*2 FOFSET 8-986 0 é I* SIGN 9- 3006 B4 I*2 FSIZ AP- 4444's oda I* ND 
12-00000000 I*2 INP 10-00 Bo AS I* PLI 10-Q000000A6 I*2 INPTR 9-0000051C I*2 LASLIN 
asia is tH I*2 LFDSIZ 4-0 4 OA I*2 LINELEN 9- O85 138 I*2 LINTYP 4444 18 I*2 LPTR 
14 I*2 LSBSIZ 12- 09 0004 I* |AR 10- . O019A I*2 MARPT 12- R888 of I*2 MAS 
$-0000032¢ I*2 MNGCNT 9-00000 33 I*2 NEGCNT 4- 4's I*4 NUM 9-00000334 I*2 OBBITS 
3 I*2 OFSIZ 9-00000 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000000C L*2 SMASK 
1 I*2 SOFSET 2 Bante L*2 STGEQL 2 44 644 L*2 STROK UP he 444 73 I*2 TAB 
12-( I*2 TMP - 1C L*2 TMPI -Q000001A L*2 TMPOUT 9-000000 I*2 TOKTYP 
1 mrss I*2 TTY 5- 09008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 
00000124 I*2 VOFSET 9- 1 I*2 VSIZ 
ARRAYS 
Address Type Name Bytes Dimensions 
6 A I*2 AMASK 4 (2) 
196 I* SIGN 4 (2) 
SiE I*2 BLBASE 162 (81) 
1 195 I*2 BLIBUF ¢ (120) 
9 I*2 BLINCR § 9} 
6 17E I*2 BLSSIZ (10) 
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~300 71382 325383 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 1 . 
BVALUE 1 (81) 
BYTSI (10) 
COMGBL (6) 
COMMAS 4 (2) 
CONBAS ( 0» 
CONINC (10) 
CONPRE (16) 
CONTAG (16) 
CONTEX 1 (9, 11) 
CPAREN 4 (25 
CPRCOM (3) 
CVALUE 1 (B1) 
DEFEND (10) 
DEFINI (10) 
DOLBIT (13) 
DOLBYT (14) 
DOLDEF 12 (6) 
DOLFLD 24 (12) 
DOLGBL 12 (6) 
DOLLAR 4 (2) 
DOLVLD 18 (9) 
DOTBLK 1 (6) 
DOTEQS 10 (5) 
DOTMAC 22 (11) 
ENDMAC 18 (9) 
EQULST 18 (9) 
EQUTAB 12 (6) 
EXCLSP 14 (7) 
EXPCLO 4 (2) 
EXPOPN 4 (2) 
FLDNAM 72 (36) 
HYPHEN 4 (2) 
INBUF 166 (83) 
LANHYP : (3) 
LINE 133 (133) 
LITTAB 18 (9) 
CTAB 16 (8) 

MARBUF 240 (120) 
RBAS 162 (81) 
MRINCR 162 (81) 
MVALUE 162 (81) 
NAME 32 (32) 
NEGSGN 4 (2) 
NUMSTR 133 (133) 
OASIGN 4 (3) 
OFFSET 20 (10) 
ONE SHF 6 (3) 
OPAREN 4 (2) 
OSBNAM (16) 
OTGNAM (16) 
OUNTYP (16) 
PCTSEM (4) 
PREF IX 3 (133) 
PRENAM (16) 
RANHYP (3) 
RSTLIN 180 (90) 
SEMSPC 6 (3) 
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1 SUBROUTINE RESETO (IND) , 
: THIS IS A NEW ROUTINE IN VERSION 1.3. , 
, 7s IT RESETS THE CONTEXT OF A PREVIOUSLY MARKED POINT. IT ONLY 1 
¢ RESETS A FEW VARIABLES. ALL OTHER CONTEXT VARIABLES ARE 3 
000 C SET TO THEIR VALUES AT THE BEGINNING OF THE STRUCTURE 1 
9008 C DEFINITION, 8 
oie INCLUDE "SRCS$:MDL32CMN.CMN/NOLIST* at 
O13 INTEGER IND 8 
0115 BLFOFS = CONTEX (1, IND) 01 
0116 BOFSET = 0 01 
011 FOFSET = BLFOFS 01 
0118 SOFSET = 0 01 
0119 LFDSIZ = 9 01 
9120 LSBSIZ = 01 
0121 FLDLAS = .FALSE. 01 
0122 LASLIN = 0 01 
Og RETURN 01 
0124 END 01 
01 
PROGRAM SECTIONS 
Name Bytes Attributes 

0 SCODE 38 PIC CON REL LCL SHR EXE RD NOWRT LONG 

3 TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

9 PARSE 2160 PIC OVR REL GBL SHR NOEX D WRT LONG 

10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 

Total Space Allocated 3957 


ENTRY POINTS 
Address Type Name 
0-00000000 RESETO 
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VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL l1- Q I*2 BLANK - 1 I*2 BLBITS 9-000003 * FOF 
Ve=Sppenee I*2 BLI 10- 8 C I*2 BLIPTR 2: 13 L*2 BLKOUT 9- 12h i BOF SET 
-0000016C I*2 CBASE - 6— I*2 CINCR 4- 4 I*2 COL 5- 6 L*2 CONEXP 
E88988088 15 pee cessasas tre Fanon” SCHMOORRO ESS HamoLy | TESSGUREEE TSB FO 
= ~ o o ca 
-000001 I*2 FOFSET - B6 I*2 FSIGN - Be I*2 FSIZ AP- 04a ie i 
Ve~RReR I*2 INP 10- AS I*2 INPLIN 10- 46 I*2 INPTR 9-000 \f I*2 LASLIN 
-00000216 I*2 LFDSIZ 4- in I*2 LINELEN - § I*2 LINTYP 3. 1 I*2 LPTR 
14 I*2 LSBSIZ \- 4 I*2 MAR 10- 19A I*2 MARPTR l2- of I* AS 
8 _DOn OO ESE I*2 MNGCNT - $f I*2 NEGCNT 4- 4 I*4 NUM Qe 0334 I*2 OBBITS 
9- E I*2 OFSIZ 9-00000 I* NSIZ s 000018 L*2 POSOFF 5-00 444 L*2 SMAS 
9-00000120 I*2 SOFSET a~Ropnnnce L*2 STGEQL -00000006 L*2 STROK 11-0000 I*2 TAB 
1320000000 [#3 TTY $-00000008 ts5 UNDOK 3200000082 #3 UNISIZ 375000000A #3 VAASK 
ce - - ~ a 
9-00000124 I*2 VOFSET 3-090001 > I*2 VSI2 
ARRAYS 
Address Type Name Bytes Dimensions 
I*2 AMASK 4 (2) 
I*2 ASIGN 4 Tt 
I*2 BLBASE 162 (81) 
I*2 BLIBUF 240 (120) 
I*2 BLINCR 162 (81) 
I*2 BLSSIZ 20 (10) 
I*2 BVALUE 162 (81) 
I*2 BYTSIZ * (10) 
I*2 COMGBL 1 £8 
I*2 COMMA 4 (2) 
I*2 CONBA 20 (10) 
I*2 CONINC (10) 
I*2 CONPRE (16) 
I*2 CONTAG (16) 
I*2 CONTE 198 (9, 11) 
I*2 CPAREN 4 (@ 
Ix CPRCOM (3) 
I*2 CVALUE 162 (81) 
I*2 DEFEND (10) 
I*2 DEFINI (10) 
I*2 DOLBIT (13) 
I*2 DOLBYT (14) 
I*2 DOLDEF (6) 
I*2 DOLFLD $3 (12) 
I* OL 2 (6) 
I*2 DOLLA 4 (2) 
I*2 DOLVLD 1 (9) 
I*2 DOTBLK 1 (6) 
I*2 DOTEQS 1 (5) 
I*2 DOTMAC . (11) 
I*2 ENDMAC (9) 
I*2 EQULST 18 (9) 
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£003 f Version V02-001 
B82 CR Ree ee REE RRE AERA ARERR A EERE A AEE RER AREER AAT EEE 
Ce ® 
0005 C* (COPYRIGHT (c) 1980 * 
Bote ee BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * 
& 
0008 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0009 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0010 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0011 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OOtg C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Riz és TRANSFERRED. * 
® 
0015 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0016 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
pete eS CORPORATION. * 
® 
0019  C* DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Bose ee SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
it) CPR RRR RARER AREA AAA AAEAAAAAAE EATER AEE EARKEEE 
C 
0024 C REVISION HISTORY: 
oo H C 29-06-77 TC ROUTINE CHKMAK ELIMINATED (2.4) 


SUBROUTINE ETOBLS (INSTG, OUTSTG) 
CONVERTS AN EXPRESSION TO STANDARD BLISS EXPRESSION 
SYNTAX. 
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00 
BO Re INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
0135 INTEGER INSTG(*) ,OUTSTG(*) 
0136 INTEGER I, ICNT, J, K, L. M, N 
0137 
0138 K = 
0139 J = 
0140 2 IF (J GT. CINSTG(1)+1)) GOTO 95 
0141 DO 90 I = J, INSTG (1) +1 
Bits ICNT = J 
014 IF CINSTG (1) .NE. *<*) GOTO 3 
0144 OUTSTG (K) = ‘(' 
Bie? GOTO 80 
0147 3 IF CINSTG (1) .NE. *>") GOTO 6 
0148 OUTSTG (K) = °)° 
a4 GOTO 80 
O18 6 IF CINSTG (1) .NE. ‘a@') GOTO 8 
136 outa s (K) = '** 
137 GOTO 80 
155 8 IF CINSTG (1) .NE. ‘!") GOTO 10 
136 OUTSTG (kK) = °° 
15 K=K +1 
158 OUTSTG (K) = ‘O° 
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59 +1 
ef GuTST6. (K) = ‘R 
6¢ OUTSTG. (K)=* ° 
6 GOTO 80 
10 IF taste (1) .NE. '&') GOTO 15 
” TSTG (K) = 


= Kk + ra) 
GuTsi¢ — 
GuTSi¢ Te = "N' 
OUTSTG (kK) = "D' 
K=K +1 
OUTSTG (K) = ° ° 
GOTO 80 
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15 IF (CINSTG 
OUTSTG (K) 
ouistG, (K) = 'N' 
GuTStS. (K) = ‘O° 
OUTSTG “© = ‘T' 
aia 


(1+ 1) .NE. 'C"')) GOTO 20 
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20 IF (CINSTG (1) .NE. '*") OR. 
CINSTG (I + 1) .NE. 'B')) GOTO 35 
eye (K) = ‘3° 
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, INstG (mM) .NE. '0")) GOTO 30 
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35 F CCINSTG (1) : 
CINSTG 

guTsre A, = ‘3 

GuTsis. (K) = ‘O° 

OUTSTG. (K) ="'" 


NE. °*") OR, 
(1+ 1) .NE. °0°)) GOTO 50 
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ETOBLS 16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 40 
Breeen 1 8Re 81:85:58 PTR KSumSMASTEN: PROCS SRCIMDL32.FOR: 1°" 
PROGRAM SECTIONS OC 
Name Bytes Attributes ! 
SCODE 1001 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 1s PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE “1¢ PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GB SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4958 
ENTRY POINTS 
Address Type Name 
9-00000000 ETOBLS 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 


4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 19-0 Goge8t I*2 BLIPTR 5-00000012 L*2 BLKOUT 9- Sonate I*2 BOFSET 
efeeeouee 1:3 gesie ~essonee 1:2 Sutin | $R0808018 E28 EMbeam 8888808. FE 
11-00000004 I+ OLCH 13: $9 I*2 ERR 375000 02 L*2 ERROR - 4 4 a L*2 ERROU 
wss'ss'e 34 L*2 FLDLAS -000001 I*2 FOFSET 9- 44 Be I*2 FSIGN 9-0 4 I* $12 
a a ec Pete a et aaa 
9-0000051C I*2 LASLIN - 16 I*2 LFDSIZ 4- 090 oA I*2 LINELEN §- 6 0126 I*2 LINTYP 
9-00000218 I*2 LPTR - 14 I*2 LSBSIZ ¢- A I*2 l2- 0004 I*2 MAR 
1 19A I*2 MARPTR 12- 8 I*2 MAS -000 $f - MNGCNT - 9 C I*2 WN 
123 QUNSIZ g 18 Usd POSOFF 27500 LtS SRASK® “ ° 156 [25 Sorser 
L*2 STGEQL - 06 L*2 STROK ii ° 009 I*2 TAB 12- 6 6 I*2 TMP 
1c Le MPIN - 1A L*2 TMPOUT 9- I*2 TOKTYP 12-Q000000A I*2 TTY 
-00000008 L* -000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK -00000124 I*2 VOFSET 
9-00000128 I*2 vSI2 
ARRAYS 
Address Type Name Bytes Dimensions 


OC 
OC 
OC 
OC 
OC 
‘ 
OC 
oC 
oC 
OC 
OC 
oC 
oC 
oc 
oc 
OC 
OC 
oC 
oc 
oc 
oc 
OC 
oC 
00 
00 
00 
00 
oC 
oC 
oc 
OC 
01 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
01 


6 A I*2 AMASK 4 (2) 
€-00000196 1:8 ASIGN ¢ 8) 
SIE I*2 BLBASE 162 (81) 
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ETOBLS Ibege “1984 01:57:23 VAX=11_FORTRAN V3. 4-56 Page 42 
=3Ep-1986 01:57:56 DISKSVMSMASTER: TROLS. SRCIMDL32.FOR:1 : 


L*1 PREFIX " (133) 
I*2 PRENAM (16) 
I*2 RANHYP (3) 
I*2 RSTLIN 180 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 32 (16) 
I*2 SUFDEF (4) 
I*2 SUFNAM 32 (16) 
I*2 TABEQS (4) 
I*2 TABL (3) 
I*2 TABOPR (3) 
I*2 TABPRN 1 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 of 
I*2 TAGNAM 32 (16) 
I*2 TMPVAL "8 (81) 
I*2 TOKSTG (40) 
I*2 UNDVLD 18 (9) 
I*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I* ZRLAHY 10 (5) 
LABELS 
Address Label Address’ Label Address’ Label Address’ Label Address’ Label Address Label 
0-00000027 0-0000007A 3 0-0000008F g -Q000000A4 § 0-000000E0 10 -00000129 15 
1 0 ee $2 a4 Sha 0 -000001F 5 ae 40 ~ O88 F 45 
g80 ? et 5 -00000324 60 mat 65 hl 66 -00000597 67 
00 A fans 0-00000386 80 te 90 -000003C1 95 0-000003CC 100 -00000308 110 
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16-Sep-1984 01:57:23 VAX=11_ FOR Pa 43 
EH oe 81:35:88 DISK $VMSMA en: YmoL Se” SRCIMDL32.FOR;1 — 

TC ROUTINE ADDED (2.4) 


LOGICAL FUNCTION MTCHR(SRC,PNT,MCH) 


¥ UBROUTINE CHECKS TO SEE IF THE STRING IN MCH MATCHES 
$s vane IN SRC STARTING AT PNT. 


C REVISION HISTORY: 
C 29-bo-77 


on oe INDEXES SRC 
J -- INDEXES MCH 
INTEGER I,J 

INTEGER de ENT »MCH(®) 


10 IF (SRC(I) .NE. MCH(J)) GOTO 20 
IF (J.GT. (MCH(1)+1)) GOTO 30 
IF (1,GT. (SRC(1)+1)) GOTO 20 


SesossoeoooooesooessS 
WR SODA EWN = OODNOU EW 


WWWwIwind 


MTCHR 


PROGRAM SECTIONS 
Name 


0 SCODE 
2 SLOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 L*2 MTCHR 


VARIABLES 
Address Type Name 
2-00000000 I*2 | 


ARRAYS 
Address Type Name 
AP-000000048 I#2 SRC 
LABELS 
Address Label Address 


Bytes Attributes 
 ' PIC CON REL LCL 
4 


te 


Sep-1984 : 3 15 $3 VAX-11 FORTRAN 
-Sep-1984 01: 6 DISKSVMSMASTER: 


SHR EXE RD NOWRT LONG 


PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


148 


Address Type Name 
2-00000002 I*2 J 


Bytes Dimensions 


we 8 (#) 
ae 8 6(#) 


Label Address’ Label 


0-00000028 10 0-0000005D 20 0-00000060 30 


Address Type Name 


AP-00000008@ I*2 PNT 


3.4-56 
MDL32.SRCIMDL32.FOR;1 
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if sent ate 81:37:56 DISKSVMSMASTER:ERDLS2°SRCIMDLS2.FOR;T°% °° 


0001 C REVISION HISTORY: 
; ¢ 29-06-77 TC ROUTINE ADDED (2.4) 
0006 INTEGER FUNCTION ELIMPF(SRC,PNT,ARGSTR) 
9006 C ELIMINATE THE PSEUDOSFUNCTION WHICH MAY START IN SRC AT PNT. 
000 ¢ PLACE THE ARGUMENT IN ARGSTR. RETURN VALUES ACCORDING TO THE 
0008 =s«é¢ FOLLOWING SCREMEN 
0009 «¢ 0 -- NO PSEUDO-FUNCTION 
0010 +~¢ 1 -- NO '*("* FOUND 
0011 ¢ : -- NO } F OUND 
0018 ¢ -- PSEUDO-FUNCTION WAS $BITPOSITION 
1 C 4 -- PSEUDO-FUNCTION WAS S$BYTEOFFSET 
0014 «¢ © -- PSEUDO-FUNCTION WAS SFIELOWIDTH 
0015 ¢ IF THE VALUE RETURNED US 1A, OR 5; PNT IS UPDATED TO POINT 
0016 «=¢ TO THE CHARACTER AFTER THE '')'’, THIS MAY BE OFF THE END OF 
0017s «¢ THE STRING. 
0018 =—s«¢ VARIABLES: 
0019 ~«¢ I -- INDEXES SRC 
9020 ¢ J -- INDEXES ARGSTR. 
90 ? INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' F 
0125 INTEGER I 
0126 INTEGER a, is), »ARGSTR(*) 
0 i LOGICAL MTCHR 
9 1=PNT 
0 IF (MTCHR(SRC,1,DOLBIT)) GOTO 10 
31 IF (MTCHR(SRC,1,DOLBYT)) GOTO 20 
é IF (MTCHR(SRC,1,DOLFLD)) GOTO 30 “4 
3 C NOT A PSEUDO-FUNCTION 
35 ELIMPF=0 
3 RETURN 


C coreg en IS $BITPOSITION 
= 
sie 


C “9 lee IS S$BYTEOFFSET 
I= one 


PSEUDO-FUNCTION IS SFIELOWIDTH 
ELIMPF= 
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J=1+DOLFLD(1) 
C LOOK FOR **("" AST ANY SPACES 
40 IF (1.G6T.(SRC(1)+1))GOTO 50 

IF (SRC(I) EQ. *(*) GOTO 60 

if ((SRC(I).NE.* °) AND. 

(SRC(I).NE.* *)) GOTO 50 
l=I+1 
GOTO 40 
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ELIMPF 


PROGRAM SECTIONS 
Name 


SCODE 
SLOCAL 


MO OONOUS 


— 


ENTRY POINTS 
Address Type 
0-00000000 I*2 


VARIABLES 
Address 


ARRAYS 
Address Type 


A © 

AP Ca I* 
1 I* 
See? 
10- 19¢ I* 


Total Space Allocated 


Name 
ELIMPF 


Name 
BINVAL 
B 


TMPOUT 
UNISIZ 


AMASK 
ARGSTR 
ASIGN 
BLBASE 
BL IBUF 


Bytes Attributes 
259 +=PIC CON REL 
36 PIC CON REL 
431 PIC OVR REL 
16 PIC OVR REL 
; PIC OVR REL 
586 PIC OVR REL 
4 PIC OVR REL 
§ PIC OVR REL 
219 PIC OVR REL 
654 PIC OVR REL 
6 PIC OVR REL 
14 PIC OVR REL 
4254 
Address Type Name 
F444 4444 I*2 BLANK 
10-0000028C I*2 BLIPIR 
BORO NOTE I*2 CINCR 
5-00000014 L*2 ENDEXP 
5- 4 4d L*2 ERROR 
9-000 tt I*2 FSIGN 
10- 4 OA8 I*2 INPLIN 
9-00000216 I*2 LFDSIZ 
9-00000214 I*2 LSBSIZ 
9-0000086E I*2 MNGCNT 
2-8 E I*2 OFSIZ 
13290000008 [23 TAB 
$-09000086 183 TORTYP 
5-0000000A L*2 VMASK 
Bytes Dimensions 
4 (2) 
ee (#) 
4 rH 
16¢ (81) 
240 (120) 
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aE 


RD NOWRT LONG 
RD WRI L 


T LONG 

RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
Type Name 

I*2 BLBITS 
L*2 BLKOUT 
I* COL 

L*2 ENDFIL 
L*2 ERROU 
I*2 FSIZ 

I* INPTR 
I*2 LINELEN 
I*2 MAR 

I*2 NEGCNT 
I*2 OUNSIZ 
I*2 SOFSET 
I* TMP 

I* TTY 

I*2 VOFSET 
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Yet 33° 
:CMDL32.SRCIMDL32.FOR; 


Address Type Name 


-890003 2 
- 944 A 
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Ig-Se -1984 01:57: VAX=-11 FORTRAN V3.4-56 Page 49 PS 
~3007 138% 91:25:82 SEK SUMGRASTEN :EHOL 32° SRCIMDL32. FOR: 1 ° 

RSTLIN 180 (90) 0 
SEMSPC (3) 0 
Ie) SPCSTG (2) 8 

I*2 SPHYSP 8 (4) 
@i*2 SRC ee (#) Q 
I*2 STRSTG 32 (16) 0 
I*2 SUFDEF (4) ) 
I*2 SUFNAM 32 (16) 0 
I*2 TABEQS (4) 0 
I*2 TABLAN 6 (3) 0 
Ie? TABOPR 6 (3) Q¢ 

I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 0 
I*2 TABSTG 4 (2) 0 
I*2 TAGNAM 33 (16) 0 
I*2 TMPVAL 162 (81) 0 
I*2 TOKSTG 80 (40) 8s 
I*2 UNDVLD 18 (9) 0 
I*2 UNITYP 4 (2) Qe 
I*2 ZEROSG & (2) 02 

I*2 ZRLAHY 10 (5) 

LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
0-00000057 10 0-00000065 20 0-00000073 30 0-0000007F 40 0-O00000AF 50 0-000000B3 60 
0-000000C2 70 0-000000EA 80 O-O000000EE 90 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
L*2 MTCHR 


_ 
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0001 «CC REVISION HISTORY 
00¢ c 29-06-77 TC ROUTINE ADDED (2.4) 
0004 —s¢ 17-02-80 TIM HALVORSEN 
0005 s—sié€ ALLOW _V_ AS WELL AS $V_ 
0007 SUBROUTINE ETOMAR(SRC,DST) 
0009 € CONVERTS AN EXPRESSION TO STANDARD MARS SYNTAX. 
0010 C¢ THE FOLLOWING VARIABLES ARE USED: 
0011 ~—¢ TMPSTG == HOLDS THE ARGUMENT TO A PSEUDO-FUNCTION 
0014 ¢ -- INDEXES THE SOURCE STRING 
001 ¢ J -- INDEXES THE DESTINATION STRING 
0014 «OC K -- INDEXES 
9015 C CODE == RESULT FROM ELIMPF 
$019 INTEGER 1,J.K,CODE 
0018 INTEGER SRC(®5 ,DST(®), TMPSTG(81) 
0019 INTEGER ELIMPF 
0020 
9021 C INITILIZE 
aa : 
0085 c MAIN LOOP (THIS IS A FOR LOOP WITH AN INITIAL CHECK) 
0026 10 IF (1 .GT. (SRC(1)41)) GOTO 100 
9027 IF (SRC(I) .NE. '$*) GOTO 90 
0099 C WE HAVE FOUND A DOLLAR SIGN. IT MAY BE A PSEUDO-FUNCTION 
00 CODE = ELIMPF(SRC,1I,TMPSTG) 1 
0031 C CODE=0 -- NOT A PSEUDO-FUNCTION 
005¢ IF (CODE .£Q. 0) GOTO 90 
0034 «oC CODE=1 -- ERROR: NO OPEN PARENTHESIS 
00535 IF (CODE .£Q. 1) GOTO 70 
0037 = ¢ CODE=2 -- ERROR: NO CLOSE PARENTHESIS 
0038 IF (CODE .£Q. 2) GOTO 60 
0040 «oC CODE=3 -- PSEUDO-FUNCTION WAS SBITPOSITION 
0041 IF (CODE .€0. 3) GOTO 40 
ark: C CODE=4 -- PSEUDO-FUNCTION WAS SBYTEOFFSET 
9044 IF (CODE .EQ. 4) GOTO 4 
0046 «OCC CODE MUST EQUAL 5 =~ PSEUDO-FUNCTION WAS $FIELDWIDTH 
0047 ¢ WE RUST CHANGE "‘$SV_"' IN THE ARGUMENT TO ‘'$S_" 
= 
9 20 IF (K .GT. TMPSTG(1)-1) GOTO 80 
50 IF (TMPSTG(K) .NE. °S' .AND. TMPSTG(K) .NE. '_*) GOTO 30 
51 IF (TMPSTG(K+1) .NE. ‘V*) GOTO ; 
3 IF (TMPSTG(K+2) .NE. '_') GOTO 
5 TMPSTG(K+1)='S° 
54 GOTO 40 
55 30 K=K¢1 
36 GOTO 20 
005 


———_-——+ 
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f copy THE PSEUDO-FUNCTION ARGUMENT TO THE DESTINATION STRING 
+4 
cela erewsteck? 
J=J+ 
K=K+1 
GOTO 50 
C ERROR -- 
60 TYPE 1000 
1000 FORMAT(' NO CLOSE PARENTHESIS FOR PSEUDO-FUNCTION') 
GOTO 90 
¢ ERROR -- 
0 TYPE 1010 
1010 FORMAT(* NO OPEN PARENTHESIS FOR PSEUDO-FUNTION') 
GOTO 90 
§ ERR o-oo 
0 TYPE 1020 
1020 toa bh ARGUMENT TO SFIELDWIDTH IS NOT A VIELD’) 
0080 
0081 C JUST COPY i" CHARACTER FROM SOURCE TO DESTINATION 
poet 90 DST(J)=SRC(I) 
008 J=J+ 4 
0084 =]+1 
0085 GOTO 10 
0086 
0087 C END OF THE LOOP 
0088 100 DST(1)=J- 
0089 RETURN 
0090 END 


30 IF (K.GT.(TMPSTG(1)4#1)) GOTO 10 
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-Sep-1 
PROGRAM SECTIONS Ls 
Name Bytes Attributes 
0 SCODE $3 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA § PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 709 
ENTRY POINTS FU 
Address Type Name 
0-00000000 E TOMAR 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
2-O000000A8 I*2 CODE 2-000000A2 I*2 | 2-000000A4 I*2 J 2-000000A6 I*2 K 
ARRAYS 
Address Type Name Bytes Dimensions 
AP-000000088 I*2 DST te 8 (#) 
AP-00000004a i33 SRC ee 8 (®) 
2-00000000 I*2 TMPSTG 162 (81) 
LABELS 
Address Label Address’ Label Address Label Address Label Address Label Address Label 
ee -0000007 - 0c3 30 -000000C8 4 -00000 5 -QQO0000F3 6 
0-0090010¢ 0, b-o0000125 80 b-b000013e 90 O-o00001s6 100  -$-00000000 %000" —- S=ooo0002 O10" 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I*2  ELIMPF 
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C Version v02-001 


CRee eee eee RRA REAR HAAR A RARER EEEA TERE RAE AA AEA AAEERRARE 


COPYRIGHT (c) 1980 
C* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


® 

® 

ca 

« 

* 
C* THIS SOFTWARE IS A ge UNDER A LICENSE AND MAY BE USED AND COPIED * 
C* ONLY IN ACCORDANCE WITH THE TERM UCH ah AND WITH THE * 
C* INCLUSION OF THE ABOVE eer NOTICE. TH ah SOF TWA RE OR ANY OTHER * 
C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

« 

x 

® 

* 

® 

® 

® 

* 

® 


eeeeseses 


C* TRANSFERRED. 


faut S 
500 A a) 
C 
I 


F {oEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
; -90A1) 

ALL 
F 


y oxtYe ‘hs “NE Sig RH 10 
(DEBUG) TYPE PySbOS CFLDNAM (1), 1 = 2, FLONAM (1) + 1) 


oc 
o¢ 
C 
0c 
0c 
0c 
0c 
0c 
0010 fe 
9011 0c 
$018 OC 
0014 Ce OC 
0015 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE OC 
9016 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT OC 
9017 Ce CORPORATION. ee 
0019  C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS OC 
90 9 ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ge 
88 ¢ CRP eRe EAE EERE RAAAAAAAAAAAAAAAAAAARAAAAAAAAEAEAEEAEEAAAAAAAAAAAAAKERAERERE oe 
C 
0024 C REVISION HISTORY: 0c 
0025 C 22-03-77 cP ADD LOGIC AT LABEL 30 TO SEND LINE TO oC 
00 $ C THE TMP FILE IF THIS IS A NEGATIVE 0c 
00 C FIELD DEFINITION. 01 
0028 =i 04-04-77 TC ADD LOGIC TO KEEP TRACK OF MNGCNT 01 
90 9 C (MAXIMUM NEGATIVE COUNT) 8 
9031 SUBROUTINE PFIELD gt 
po8s C THIS ROUTINE IS CALLED WHEN A LINE HAS BEEN RECOGNIZED 01 
0034 C AS A FIELD DEFINITION. THE IMPLICIT ARGUMENT INPTR IS THE OFFSET 01 
9035 C TO THE NEXT CHARACTER TO BE READ IN THE INPUT LINE. at 
std C PrIELD COLLECTS THE ARGUMENTS OF THE FIELD DEFINITION, 01 
0038 C AND THEN OUTPUTS APPROPRIATE STATEMENTS TO THE BLISS 01 
9059 C AND MARS TRANSLATED FILES. 
if INCLUDE *SRC$:MDL32CMN.CMN/NOLIST* 
4 C INITIALIZE YHE DEFAULT VALUES FOR UNIT DESCRIPTOR 
5 C NUMBER OF BYTES PER UNIT, NUMBER OF UNITS, AND SIGN. 
; CALL INIFLD 
9 C GET THE FIRST TOKEN. VALID TOKENS ARE 
0 C ALPHA (THE FIELDNAME) OR COMMA (MEANING THAT NO NAME 
C IS BEING DEFINED. SPACE IS SIMPLY BEING RESERVED). 
4 
8 


Sooooooooooooo 
essssscssssessssses 
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159 CALL GETTOK 
160 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
16¢ ¢ NAME, IF ANY, HAS BEEN SAVED. NOW LOOK FOR A UNIT 
16 C DESCRIPTOR ARGUMENT. VALID CHARACTERS FOR THIS 
164 C ARGUMENT ARE L, 8, W, Q, i. 
166 10 IF (DEBUG) TYPE 420, TOKTYP 
16 IF (TOKTYP .NE. COMMA) GOTO 25 
0168 CALL GETT 
169 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
170 IF (TOKTYP .NE. ALPHA) GOTO 15 
171 CALL GET 
1% IF (UNDOK .€Q. .FALSE.) GOTO 100 
17 CALL GET 
O174 IF (DEBUG) TYPE S00, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
017% «OC UNIT DESCRIPTOR, IF ANY, HAS BEEN SAVED. NOW LOOK FOR 
O17” C THE SIZE ARGUMENT. 
0179 «=: IF (DEBUG) TYPE 420, TOKTYP 
0180 420 FORMAT (' TOKTYP IS '',13) 
0181 IF (TOKTYP .NE. COMMAS GOTO 25 
O18¢ CALL GETT 
18 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0184 IF (TOKTYP .NE. NUMBER) GOTO 20 
0185 FS1Z = INTVAL (TOKSTG) 
01 IF (FSIZ .€Q. -1) GOTO 110 
0187 CALL GETTOK 
0188 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0190 ¢ SIZE OF FIELD, IF ANY, HAS BEEN SAVED. NOW LOOK FOR 
a3 ¢ THE SIGN ARGUMENT. 
198 20 IF (DEBUG) TYPE 420, TOKTYP 
0194 IF (TOKTYP .NE. COMMA) GOTO 25 
0195 ¢ IF (DEBUG) TYPE 430 
196 430 FORMAT (*° GETTING SIGN’) 
19 CALL GETT 
198 F (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
199 IF (TOKTYP .NE. ALPHA) GOTO 25 
200 IF (TOKSTG (1) .NE. 1) GOTO 120 
01 IF (TOKSTG (2) .NE. 'S') GOTO 120 
0¢ FSIGN = 1 
ASIGN (2) = ‘1° 
04 INPTR = INPTR = 1 
05 GOTO 30 
$$ C THE OFFSET INTO THE INPUT BUFFER IS OFF BY ONE CHARACTER 
0B OC BECAUSE SOME TRAILING OPTIONAL ARGUMENTS WERE OMITTED. BACK 
09 C UP THE OFFSET BY ONE. 
1" 25 INPTR = LASTNB (INPTR = 2) 
ig C IF THIS IS A NEGATIVE FIELD DECLARATION, OUTPUT IT 
9 1 C TO THE TMP FILE. 
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30 POSOFF) GOTO 40 

»NOT. Maal eAND, (FLDLAS)) CALL CHKALC 
NOT. rary ) GOTO 
T= rene + FSIZ * UNISIZ 
T ty (NEGCNT ,MNGCNT) 


35 NEGCNT = FSIZ 
MNGCNT = NEGC 
TMPOUT = .TRU 
CALL OUT2LN 
RETURN 


me 
_—-. 


40 IF (.NOT. TMPOUT) GOTO 45 
CALL OUT2LN 


CALL STANEG 
RETURN 


s 


on 


ARE ALL COLLECTED. NOW OUTPUT LINES TO 
AND MARS. 


45 


ERROR REPORTING 


C 
100 TYPE 1000 
1000 4 pal (* INVALID UNIT DESCRIPTOR IN FIELD DEFINITION") 


110 TYPE 1100 
1100 FORMAT (* INVALID SIZE IN FIELD DEFINITION’) 
RETURN 


SS une coe BELLE ES 
OWONOUS WN" OVONOULS WN —O0O@ 


SOOSOSOSOSOOSOSOSOSOOSSOSSOSSCOSOSOSSOOOOSOSOOSOOOOOOOOOOSOOOOOOO 


Mrorore 


20 TYPE 1200 
200 — (* INVALID SIGN ARGUMENT IN FIELD DEFINITION') 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 10 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 133 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 15 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 5 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5181 
FU 
ENTRY POINTS 
Address Type Name 
0-00000000 PFIELD 
VARIABLES 
ress Type Name ress Type Name ress Type Name ress Type Name 
Add T N Add T N Add T N Add T N 
4-00000006 I*4 BINVAL 11-00000000 I* LAN 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI a 44 09 4 I*2 BLIPTR 5-00000618 L*2 BLKOUT 9-0000012A I*2 BOFSET 
16C I*2 CBASE 9-Q000016E I*2 CINC 4-00000004 I*2 COL ram s'4'4 49h L*2 CONEX 
I*2 DEBUG - 4 94 904 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLC 
I* RR - it 02 L*2 ERROR aes 443 L*2 ERROUT 5-00000010 L*2 FLDLAS 
I*2 FOFSET 9- , yt I*2 FSIGN 9-000000B4 I*2 FSIZ §- Sonese I* 
It NP 10-00 AS I*2 INPLIN 10- 44 4 ba I*2 INPTR - 38 316 I*2 LASLIN 
I*2 LFOSIZ 4- 4 ” I*2 LINELEN 9-0000 \ I*2 LINTYP 9-0000021 I* PTR 
I*2 LSBSI1Z ye 4 I*2 MAR a . 19A I*2 MARPTR y 0000 of I* |AS 
Ie GC - 3 I*2 NEGCNT 4- $98 1*4 -000 4 I*2 OBBITS 
I*2 OFSIZ = I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000 L* MASK 
I*2 SOFSET - : Fr: L*2 STGEQL 2 4 Sd L*2 STROK 11- B88 I* AB 
I*2 TMP - L*2 TMPIN - A L*2 TMPOUT 9- 0 I*2 TOKTYP 
I*e2 TTY -00 8 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-Q000000A L*2 VMASK 
I*2 VOFSET 9-000001 I*2 VSIZ 


ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 

g 196 I*2 ASIGN 4 (2) 
S1E I*2 BLBASE 16¢ (81) 

10 19C I*2 BLIBUF 240 (120) 
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I*2 RSTLIN 180 (90) 

I*2 SEMSPC 6 (3) 

I*2 SPCSTG 4 (2) 

I*2 SPHYSP (4) 

I*2 STRSTG 32 (16) 

I*2 SUFDEF (4) 

I*2 SUFNAM 32 (16) 

I*2 TABEQS (4) 

I*2 TABLAN 6 (3) 

I*2 TABOPR 8 (3) 

I*2 TABPRN 1 (5) 

I*2 TABRAN 6 {3} 

I*2 TABSTG 4 (2) 

1*2 TAGNAM 32 (16) 

I*2 TMPVAL 162 (81) 

I*2 TOKSTG 80 (40) 

I*2 UNDVLD 1 (9) 

I* ITYP 4 (2) 

I*2 ZEROSG 4 (2) 

I*2 ZRLAHY 10 (5) 

LABELS 
Address Label Address Label Address Label Address’ Label Address Label Address Label 
seis ts 10 0-0000019F 15 a 454 6 Fh 20 0-00C002F2 25 0-00000310 30 49 4b 35 
0-00000381 40 0-00000395 45 0-000003DA 100 0-00000 110 0-0000040A 198 1-00000008 420° 
430° 1-00000000 500' 1-00000018 1000' 1-00000047 1100' 1-0000006B8 1200' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CHKALC GETREM GETTOK GE TUND INIFLD I*2 INTVAL 
I*2 LASTNB MOVSTG OUT2LN OUTFLD SAVSBA STANEG 
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SUBROUTINE PSBFLD 


THIS ROUTINE IS CALLED WHEN A LINE HAS BEEN RECOGNIZED 
AS A SUBFIELD DEFINITION. THE IMPLICIT ARGUMENT 
INPTR IS THE OFFSET TO THE NEXT CHARACTER IN THE INPUT LINE. 
PSBFLD COLLECTS THE NAME OF THE SUBFIELD, THE OFFSET, 
UNIT, THE SIZE, AND THE SIGN. THEN If OUTPUT 
APPROPRIATE METATEMENTS TO THE BLISS AND MARS TRANSLATED FILES. 


INCLUDE *SRC$:MDL32CMN.CMN/NOLIST' 

tNTEGER LOCAL, COUNT, OSFSET ‘ 
INITIALIZE THE OFFSET, UNIT TYPE, SIZE, SIGN, AND 

NAME FIELDS 


LOCAL = =1 
CALL INIFLD 
PICK UP THE NAME TOKEN 


CALL_GETTOK 
FORMA a oats 500, (TOKSTG (1), 1 = 2, TOKSTG (1) + 1) 


IF (TOK KTyP “NE. ALPHA) GOTO 10 

CALL MOVSTG (TOKSTG, FLDNAM) 

CALL_GETTOK 

IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 


NAME, IF ANY, IS RETRIEVED. NOW CHECK FOR AN OFFSET ARGUMENT. 


if (DEBUG) TYPE 420, TOKTYP 
FORMAT (* TOKTYP 13) 


IF (OKT YP .NE. chaos GOTO 30 

IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
IF (TOKTYP .NE. NUMBER) GOTO 15 

LOCAL = INTVAL (TOKSTG) 

IF (DEBUG) ones 210 LOCAL for $e LSBSIZ 

FORMAT (° ses. 13," LSBSIZ *,13) 

IF (LOCAL w Ag yy 

IF (CLOCAL ¢ Borsers. fo BLFOFS) GOTO 105 

NOW LOOK FOR A UNIT DESCRIPTOR FIELD. 

CALL GETTOK 

IF (DEBUG) TYPE 500, (TOKSTG (1), 1 = 2, TOKSTG (1) + 1) 
OFFSET ARGUMENT, IF ANY HAS BEEN COLLECTED. NOW LOOK FOR 
A UNIT DESCRIPTOR ARGUMENT 

IF (DEBUG) TYPE 420, TOKTYP 

IF (TOKTYP .NE. COMMA) GOTO 30 

CALL GETTO 

IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
IF (TOKTYP .NE. ALPHA) GOTO 20 
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0159 CALL GETUND (TOKSTG) 00 
0160 IF (UNDOK .€Q. .FALSE.) GOTO 110 00 
0161 CALL BET TOK | 
016¢ IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
ata C UNIT DESCRIPTOR. IF ANY, HAS BEEN SAVED. NOW LOOK FOR 00 
0165 ¢ THE SIZE ARGUMENT ee 
0167 = 20 IF (DEBUG) TYPE 420, TOKTYP 00 
0168 IF (TOKTYP .NE. COMMA) GOTO 30 00 
0169 CALL GETTOK 00 
0170 IF (DEBUG) TYPE 500 (TOKSTG 6 (U), I = 2, TOKSTG (1) + 1) 00 
0171 IF (TOKTYP .NE. NUMBER) 00 
0172 FSIZ = INTVAL (TOKSTG) 00 
017 IF (FSIZ .£Q. -1) GOTO 120 00 
0174 CALL GETTOK 00 
0175 IF (DEBUG) TYPE 500, (TOKSTG (1), 1 = 2, TOKSTG (1) + 1) oS 
hc ee SIZE OF SUBFIELD, IF ANY, HAS BEEN SAVED. NOW 00 
0178 C LOOK FOR THE SIGN ARGUMENT. 88 
0180 25 IF (DEBUG) TYPE 420, TOKTYP 00 
0181 IF (TOKTYP .NE. COMMA) GOTO 30 00 
0182 CALL GETTO 00 
0183 IF (DEBUG) TYPE 500. af TOKSTG (1), I = 2, TOKSTG (1) + 1) 00 
0184 IF (TOKTYP .NE. ALPH } GOTO 0 00 
0185 IF (TOKSTG (1) 4) ¢ 30 00 
0186 IF (TOKSTG (2) NE: "s? ; Otoro 130 00 
0187 FSIGN = 1 00 
0188 ASIGN (2) = ‘1° 00 
0189 INPTR = INPTR - 1 00 
0130 GOTO 35 oo 
0192 ¢ FIELDS ARE ALL COLLECTED. NOW OUTPUT LINES TO BLISS AND 00 
0193 = ¢ MARS, AND UPDATE SUBFIELD OFFSET COUNTER. IF SOME 00 
019% ¢ TRAILING FIELDS WERE OMITTED THE INPUT LINE POINTER 00 
0195 ¢ IS ONE CHARACTER TOO FAR. BACK IT UP TO THE CORREC 
0196 C POSITION. 
0198 30 INPTR = LASTNB (INPTR = 2) 
0199 
0200 35 IF (DEBUG) TYPE 430, BLFOFS LSBSIZ., FOF SE SET SOF SE] 
098 430 FORMAT (* BLFOFS *,13,° LSBSIZ FSEf *,13," SOFSET °,13) 
0308 SEE WHAT SORT OF ALLOCATION TO DO. 
0508 IF (LOCAL .£Q. -1) GOTO 40 
9206 IF (LOCAL .GT. SOFSET) GOTO 45 
9 0” IF (LOCAL .LT. SOFSET) GOTO 50 
$509 C IN THIS CASE, THE OFFSET SPECIFIED IS EQUAL TO THE 
0210 ¢ CURRENT SUBFIELD OFFSET. JUST OUTPUT THE SIZE OOF THE LAST SUBFIELD, 

1 
G ig IF (DEBUG) TYPE 440, LSBS1IZ 
9 14 440 FORMAT (' OFFSET REMAINS SAME, OUTPUT ($8812 *,13) 

15 IF (LSBSIZ .NE. 0) CALL OUTBLK (LSBSIZ 
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IF (DEBUG) TYPE 480, LOCAL 58 


0 
80 FORMAT (* REDUCED OFFSET I$ , LAST LSBSIZ IS ',13) 


LOCAL 
LSBSIZ = SOFSET - OSFSET 
IF (DEBUG) TYPE 490, LSBSIZ 
FORMAT (' NEW LSBSI2 IS ‘ie 


B 3) 
F (LSBSIZ .NE. 0) CALL OUTBLK (LSBSIZ) 


1 GOTO 60 
1 C HERE, NO OFFSET WAS SPECIFIED, JUST OUTPUT THE SIZE OF THE 
1 ¢ LAST SUBFIELD. 
40 IF (DEBUG) TYPE 450, LSBSIZ 
450 FORMAT (' NO OFFSET SPECIFIED, OUTPUT LSBSIZ ',13) 
2 IF (LSBSIZ .NE. G) CALL OUTBLK (LSBSIZ) 
TO 60 
C HERE, THE OFFSET SPECIFIED WAS GREATER THAN THE CURRENT 
¢ SUBFIELD OFFSET. OUTPUT THE SIZE OF THE LAST FIELD, AND THEN 
¢ OUTPUT THE ADDITIONAL BYTES TO BRING IT UP TO THE SPECIFIED 
¢ OFFSET. 
3 45 IF (DEBUG) TYPE 460, LOCAL, LSBSIz 
3 460 FORMAT (* OFFSET SPECIFIED IS ',13,° OUTPUT LSBSIZ ',13) 
3 IF (LSBSIZ .NE. 0) CALL OUTBLK (LS8S12) 
3 COUNT = LOCAL - SOFSET 
3 IF (DEBUG) TYPE 470, COUNT 
2 470 FORMAT (* NOW ADDITIONAL SIZE OF ',13) 
2 IF (COUNT .NE. 0) CALL OUTBLK (COUNT) 
2 SOFSET = LOCAL 
2 GOTO 60 
2 HERE, THE OFFSET SPECIFIED WAS LESS THAN THE CURRENT 
2 SUBFIELD OFFSET. REDUCE THE CURRENT OFFSET TO THAT SPECIFIED. 
2 COMPUTE THE NOW REDUCED SIZE OF THE LAST SUBFIELD, AND ALLOCATE 
3 THAT AMOUNT. 
: 
2 
2 
2 
2 
2 I 

: GOTO 60 

: C NOW SET UP ALL THE FIELDS AND OUTPUT THE FIELD NAME. 

2 60 IF (CSOFSET + (FSIZ * UNISIZ)) .GT. LFDSIZ) GOTO 125 


FLDLAS = .TRUE. 
LSBSIZ ~ SIZ * UNISIZ 


CINPTR) = INBUF (1) = INPTR + 1 
CALL GETREM (INPTR) 
CALL OUTFLD 
RETURN 
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ERROR REPORTING 


100 TYPE 1000 
00 Mead (* INVALID OFFSET IN SUBFIELD DEFINITION") 
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PSBFLD 16-Sep-1984 01:57:23 
730071382 BT 135538 

0273 =: 105 TYPE 1010 

0274 1010 FORMAT (* SUBFIELD OFFSET OUT OF ORDER’) 

0275 RETURN 

0276 

0277. 110 TYPE 1100 

0278 1100 FORMAT (' INVALID UNIT DESCRIPTOR IN SUBFIELD DEFINITION’) 

0279 RETURN 

0280 

0281 120 TYPE 1200 

0 8¢ 1200 FORMAT (* INVALID SIZE IN SUBFIELD DEFINITION’) 

8 8: RETURN 

0285 125 TYPE 1210 

0286 1210 FORMAT (" SUBFIELD SIZE TOO LARGE") 

pset RETURN 

0288 

0289 130 TYPE 1300 

0290 1300 FORMAT (* INVALID SIGN ARGUMENT IN SUBFIELD DEFINITION’) 

OSee RETURN 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 1750 PIC CON REL LCL SHR EXE 
1 SPDATA 568 PIC CON REL LCL HR NOEXE 
; SLOCAL 76 =PIC CON REL LCL NOSHR NOEXE 

TEXT 431 PIC OVR REL GBL HR NOEXE 
4 VARS 12 PIC OVR REL GBL SHR NOEXE 
5 LOG 30 PIC OVR REL GBL SHR NOEXE 
6 STGS 586 PIC OVR REL GBL SHR NOEXE 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE 
10 FILES 654 PIC OVR REL GBL SHR NOEXE 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE 

Total Space Allocated 6293 


ENTRY POINTS 
Address Type Name 
0-00000000 PSBFLD 


RD NOWRT 
RD NOWRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
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6 
PSBFLD i§- Sep-1984 Oi: 2f: 3 VAX=-11 FORTRAN V3.4-56 Page 63 
-Sep-1984 01:57:26 DISKSVMSMASTER: CMDL32.SRCIMDL32. FOR;1 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
3080S *4 BINVAL 11- 0 I* LANK - 1 I*2 BLBITS 9- 332 I*2 BLFOFS 
I* LI 10- 23 I*2 BLIPTR 2: 13 L*2 BLKOUT - 8 12h I*2 BOFSET 
585 I*2 CBASE - 8 I*2 CINCR 4- 04 I*2 COL - § L*2 CONEXP 
. *2 COUNT - I*2 DEBUG - 14 L*2 ENDEXP - 8 L*2 ENDFIL 
11-00000004 I* OLCH le- I*2 ERR - 02 L*2 ERROR - E L*2 ERROU 
5-00000010 L*2 FLOLAS - I*2 FOFSET - B6 I*2 FSIGN - B4 I*2 FSIZ 
It le- I*2 INP 10- AS I*2 INPLIN 10- A6 I*2 INPTR 
1 I*2 LASLIN - 1 I*2 LFDSIZ 4- ” I*2 LINELE - b69 I*2 LINTYP 
I*2 LOCAL - 1 I*2 LPTR 9- 4 I*2 LSBSIZ le- 4 I*2 MAR 
MEiosenees Ise Wm” “Gcgggg98SE IS Bbbirs | SRRRSRRSE TSB neta! =teuoooss {3 Sere 
9 QO I*2 OUNSIZ - §000078 L*2 POSOFF :- ° 0 L*2 SMASK §- 00 0120 I*2 SOFSET 
2 L*2 STGEQL -00000006 L*2 STROK 11-00000002 I* AB \s- 0000006 I* i” 
-0000001C L*2 TMPIN -0000001A L*2 TMPOUT 9-00000050 I*2 TOKTYP 12-Q000000A I*2 TTY 
5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L* AS 9-00000124 I*2 VOFSET 
9-00000128 I* $12 
ARRAYS 
Bytes Dimensions 
16 ) 
24 0) 
16 ) 
2 ) 
16 ) 
2 ) 
1 
) 
) 
) 
) 
19 11) 
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DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 1 


VAX=11 FORTRAN 


PSBFLD 
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nn A | onnnn Me A Ce ete ee a Lee a ~~ “~ aan 
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PSBFLD $ep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Pp 65 GE 
1$-sep-1984 Bt 8oisg Wd Gane tN Yaor35sacamoysz.rors1°** 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
10 444 SY 15 -00000 43 0 =$00 ze 25 -000003D1 30 g- O006st 35 
000900498 40 444 —E 45 -00 $9 - ‘8 10 - 38 f 105 
138 Q- 68E 12 - ens 125 est g, - 1 31 : 1- Boot +4 4 0° 
ti $8 . \- 09 440' 1- 97 450° $8 . 1- 41 47 1- 480 
490° 1- 9 ° 1-0000014B8 1000' <u 174 1010 1-00000194 1100° 1-000001C6 1200° 
1210° 1-00000 1300" 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
GETREM GETTOK GE TUND INIFLD I*2  INTVAL I*2 LASTNB 
MOVSTG OUTBLK OUTFLD SAVSBA 


16-Sep-1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 66 
g- sep-1984 bt 25 383 DISKSVMSMASTER: CHOL 32, SRCIMDL32.FOR: 1 ' 

O00 f Version v02-001 

§ ‘PPPS ESES ISLET ELIT TT TTT TTT TTT TT TTT Terre icici irr ici iri i iii iii iitiiciii. 
0004 C* * 
0005 C* COPYRIGHT (c) 1980 * 
Bone es BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. : 
0008 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0009 C* ONLY IN ACCORDANCE WITH THE TERMS sak SUCH LICENSE AND WITH THE * 
0010 C* INCLUSION OF THE ABOVE ott lf NOTICE. THIS SOF TWA — OR ANY OTHER * 
0011 C* COPIES THEREOF _'t wr BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
borg C* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Sore es TRANSFERRED. : 
0015 C* THE INFORMATION IN THIS SOFTWARE IS we wiht TO CHANGE WITHOUT NOTICE * 
8018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
SEA - CORPORATION. : 
0019 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Be ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
88 ¢ Ceecccccccncerecererenerarananennenaneneennenecereereeeleneeetertteteneneens 

C 

88 ¢ : MDL MAINLINE 
0026 INCLUDE *SRC$:MDL32CMN.CMN' 
0128 C 
0129 C 
01 C 
0131 INP = 2 
01 ; MAR = 1 
013 BLI = 3 
Big TMP = 4 
0135 MAS = 8 
0136 C 
0137 CALL INISTG 
0138 CALL GETCMD 
0139 END 
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VARIABLES 


ARRAYS 


MDL 32CMNSMAIN 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type Name 
0-00000000 


Address Type 


Address Type 


Total Space Allocated 


MDL32CMNSMAIN 


Name 
BINVAL 
BLI 
CBASE 
DEBUG 
ERR 


BLSSIZ 


Attributes 
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VVUVVVUVUUUU 
bo be ba Bas be be bg be bs bs ae 
AAMOOOOOOOS 

So 
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a 
DDDWDWDDWDWWWWD 
Mmmmmmmmmmemn 
ereererrerece ce 


Address Type Name 


l1- 4464 0 I*2 BLANK 
"90000016 18 CINCR. 
-00 0 4 L*2 ENDEXP 
- 02 L*2 ERROR 
= 6 I*2 FSIGN 
10- 4 I*2 INPTR 
9- \$ I*@ LINTY 
10- 19A I*2 MARPTR 
4- 098 I*4 NUM 
- 4h L*2 POSOFF 
-00 06 L*2 STROK 
“398 Q1A L*2 TMPOUT 
- ® 
9-00000082 | UNISIZ 


Bytes Dimensions 
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VAX=11 FORTRAN V3. 4-56 Page 67 
DISKSVMSMASTER: EDL 32-SRCIMDL32.FOR:1 9 


RD NOWRT LONG 
R WR 


D T LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD T LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
Type Name Address Type Name 
I*2 BLBITS 9-00000332 I*2 BLFOFS 
L*2 BLKOUT 9-0000012A I*2 BOFSET 
I*2 COL 5- Ooo Nb L*2 CONEXP 
L*2 ENDFIL 11- 0004 I*2 EOLCH 
L*2 ERROUT - 8 L*2 FLDLAS 
I*2 FSIZ l2é- 00 I*2 INP 
I*2 LASLIN - 88 16 I*2 LFDSIZ 
I*2 LPTR 9- 14 I*2 LSBSIZ 
I*2 MAS 9-Q0000086E I*2 MNGCNT 
I*2 OBBITS 9-000 : f I* FSIZ 
L*2 SMASK 9-000001 I*2 SOFSET 
I*2 TAB le- 3 88 6 I* P 
I*2 TOKTYP le- 0 a It TY 
L*2 VMASK -00000124 I*2 VOFSET 
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K 6 
secrnaconaeing Meret eee Bt 85:83 | NN cddmSRASTeN: Fao 3o°srcIMDL32.FoR:1%” °° a 
LA 


*2 SPCSTG 4 (3) 
*¢ SPHYSP (4) 
tg STRSTG 32. (16) 
te SUFDEF (4) 
It? SUFNAM (16) 
i: TABEQS (4) 
*2 TABLAN 6 (3) 
I*2 TABOPR 8 (3) 
I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
I*2 TA i$ (16) 
I*2 IMPVAL 162 (81) 
I*2 TOKSTG 3 (40) 
6 I*2 UNDVLD 18 (9) 
6 7A #2 UNITYP 4 (2) 
6-00000192 I*2 ZEROSG 4 (2) 
6-O00000A2 I*2 ZRLAHY 10 (5) 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
GETCMD INISTG 


é 
16-Sep-1984 01:57:23 VAK-11 FORTRAN V3.4-56 Page 70 
f-sen-1984 01:25:82 DI SKSVMSMASTER: EMBL 32 SRCIMDL32. FOR: 1 aad 
1 BLOCK DATA 88 
i c INITIALISE STATIC DATA FOR MDL 00 
3 INCLUDE "SRCS:MDL32CMN.CMN® 00 
19 DATA BLANK,TAB,EOLCH/* ',' *,0/ 00 
108 END bo 
00 
86 
00 
PROGRAM SECTIONS 4 
Name Bytes Attributes 88 
0 TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
1 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
: LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
4 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
5 CHECKS : PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
: PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
8 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
9 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 
Total Space Allocated 3899 Ba 
00; 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
1 1*4 BINVAL -00000000 I*2 BLANK 6-00000212 I*2 BLBITS 6-00000332 I*2 BLFOFS 
900000008 I*2 BLI 7-009 et I*2 BLIPTR 200000015 L*2 BLKOUT 6-0000012A I*2 BOFSET 
g 16C I*2 CBASE 6-0000016E I*2 CINCR -00000004 I*2 COL -00000016 L*2 CONEXP 
I*2 DEBUG - 9000014 L*2 ENDEXP 2-00000000 L*2 ENDFIL -00000004 I*2 EOLC 
132 [2d FORSET “Booos0es 25 Feton é-00000088 He5 Esty” $-50000000 fs3 NPC’ 
7000000a8 I*2 INPLI $- 900 0A6 I*2 INPTR o-68 a0sr¢ I*2 LASLIN 6-00000 16 I*2 LFDSIZ 
1 A I*2 LINELEN - 0 126 I*2 LINTYP 6-00000218 I*2 LPTR 6-00000214 I*2 LSBSIZ 
Ie -0000019A I*2 MARPTR 9-00000 O¢ I*2 MAS 6-00000 — I*2 MNGCNT 
sss sg gency © SCHMMOEETE hor, SCAMMRRRRE ESE SRRETS | RRRRREES HSE SEL 
L*2 STGEQL 3 5 06 L*2 STROK §-5 8 O06 Ie? TAB $-090000 6 I*2 TMP 
1C Le2 TMPI -0000001A L*2 TMPOUT $-0 0 1*2 TOKTYP 9-000 QOOOA I*2 TTY 
8 L*2 UNDOK 6-000000B2 I*2 UNISIZ -0000000A L*2 VMASK 6-00000124 I*2 VOFSET 
6-00000128 I*2 vSI2 
ARRAYS 
Address Type Name Bytes Dimensions 


; A I*2 AMASK 4 (2) 
196 I*2 ASIGN 4 (2) 
6 SIE I*2 BLBASE 162 (81) 
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DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 1 


VAX=11 FORTRAN 
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MDL32SDATA 16-Sep-1984 01:57: VAX=-11 FORTRAN V3.4-56 Page 72 
828e0- 1382 8:35:83 DT SKSVMSMASTER: FOL 33, SRCIMDL32. FOR: 1 ’ 
*2 RANHYP (3) 
*2 RSTLIN 180 (90) 
2 SEMSPC (3) 
I*2 SPCSTG (2) 
I*2 SPHYSP (4) 
I*2g STRSTG 32 (16) 
I*2 SUFDEF (4) 
I*2 SUFNAM 32 (16) 
I*2 TABEQS (4) 
I*2 TABLAN 6 (3) 
I*2 TABOPR 8 (3) 
I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
I*2 TAGNAM 32. (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
I*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 


$ep-1984 01: 3 VAX-11 F 
ig-s¢ 90pm 8Be 81i85:5e | MN bmGGnSTeN: Pane 35° sec aMDL32. FOR: 1 
8903 £ Version Vv02-001 
0008 CRRR RRR AT AERA AEEA AAA EEE 
® ® 
0005 C* COPYRIGHT (c) 1980 * 
Bae eS BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 2 
0008 C* THIS SOFTWARE is 8 gen UNDER A LICENSE AND MAY BE USED AND COPIED * 
0009 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ht he Bg WITH THE * 
0010 C* INCLUSION OF THE ABOVE pig Calf NOTICE. THIS SOFTWARE OR ANY OTHER * 
0011 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE M He ERTL ABLE TO ANY * 
pots C* OTHER PERSON. NO TITLE TO ORD OWNERSHIP OF THE SOFTWARE IS HEREBY * 
dF a TRANSFERRED. * 
& 
0015  C®* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0016 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0017 Ce CORPORATION. ‘ 
® 
0019 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
9020 Ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
4 CR Ree eRe EERE EAAAAAARERAA RARER EEA 
¢ 
0024 C REVISION HISTORY: 
9025 } 22-03-77 cP ADD TMP FILE OPEN AND CLOSE. 
it $4 : VARIABLES: 
00¢9 C BLINAM--OUTPUT FILE SPECIFICATION FOR BLISS. 
00 C INPNAM==INPUT FILE SPECIFICATION 
0031 «=«¢ ISWICH=-VALUE OF SWITCHES SPECIFIED WITH INPUT FILE SPECIFICATION 
its C ARNAM--OUTPU E SPECIFICATION F 
003 C th et OF SWITCHES SPECIFIED WITH OUTPUT FILE SPECIFICATION 
0034 «=¢ TMPNAM=-TMP FILE SPECIFICATION, 
0035 C 
0036 C 
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1§-sep-1984 0130363 VAX=11_ FORTRAN GE} 


35:33 DTRKSUMSMASTER: OLS SRCIMDL32.FOR:1°o 7” 
SUBROUTINE GETCMD 

INCLUDE COMMON FILE 

INCLUDE *SRCS:MDL32CMN.CMN/NOLIST' 

DATA DECLARATIONS 


Sne TERete eth wees: BLINAM 
CHARACTER*152 COMLIN 


GET COMMAND LINE PARAMETERS. 
ame <r -'MDL>",LLEN) 


IF (CIERR.AND.1).£Q.0) Dw LIBSSTOP(ZVALCIERR)) 


ie teeslenta.0) My 
Oo inpu 
NeT:LLEND 


INPNAM, ‘ >") 
:80),'. 5 ‘NE. 0) GOTO 60 


Sa fh SR FR..AM MARR SRL LR AFR ARH A 


—m “NY 
--~ 99 


Pa 


SET UP OUTPUT FILE SPECIFICATIONS. 
IF Boye Bes 1) THEN 
MARNAM= I NPNAM 


BL INAM=INPNAM 
See ati tothe! aan :80),".") 
A bts Lils3)=" 169 + BSe" 


§ 

ENDOUT=INDEX (COML INE , 

ir ace DOUT.EQ.0) ENDout=ESI6N 
NAMS CORE | NE (1: ENDOU 

tre CENDOUT EQ E .EQSIGN) UTEN 


FUR 


LINAM 
ELSE 
4 Bk INAM=COML INE (ENDOUT+1 :EQSIGN-1) 
ENDIF 
1=INDEX(MARNAM, ')") 
IF (1.€0.0) I={NDEX(MARNAM, °>") 
IF CINDEX(MARNAM(1+1:80),".').€0.0) MARNAM(77:80)=".MAR' 
1 =INDEX (BL NAM "}*) 
IF (1.€0.0) 1=INDEX(BLINAM, >") 
IF CINDEX(BLINAM(1+1:80),".°).€Q.0) BLINAM(77:80)=".B32" 
CREATE A NAME FOR THE BLISS OUTPUT FILE THAT IS THE SAME AS 
FOR THE MARS OUTPUT FILE EXCEPT THAT THE EXTENSION IS .B32. 


OPEN A TEMP FILE TO ALLOW HANDLING OF NEGATIVE FIELDS. 


OPEN A TEMP FILE TO PUT THE FIRST PASS OF THE MARS OUTPUT IN. 
OPEN AND PROCESS THE FILES. 


. 7 
GETCMD 16-Sep-1984 01:57:23 VAX"11 FORTRAN V3.4-56 Pose 75 
Breen eee Btie 58s | Nad SORS RON Paar so sacampL32.rors1° 


-Sep-19 

0195 «¢ 

196 OPEN( UNIT=INP,TYPE="OLD' ,NAME=INPNAM 

19 ACCESS=" SEQUENTIAL" ,READONLY ,ERR=500) 

198 OPEN( UNIT=MAR, TYPE="SCRATCH’ ,NAME='SYSSLOGIN:MAROUT. TMP", 
0199 ACCESS=" SEQUENTIAL .ERR=530) 

00 OPEN( UNIT=MAS, TYPE="NEW' ,NAME=MARNAM, CARRIAGECONTROL='LIST’, 
0201 ACCESS="SEQUENTIAL' , ERR= 
0 0¢ OPEN( UNIT=BLI1,TYPE= NEW! “NAME =BL JNAM, ! CARRIAGECONTROL="NONE', 
020 1 ACCESS=' SEQUENTIAL’ ,ERR=520) 
0204 OPEN( UNIT=TMP, TYPE="SCRATCH ,NAME='SYSSLOGIN:NEGFLD. TMP’, 
0205 1 FORM="UNFORMATTED' ,ACCESS=' SEQUENTIAL ,ERR=530) 
0 06 ENDFIL = .FALSE. 
020 100 CALL STPROC 
0208 IF (.NOT. ENDFIL) GOTO 100 
0209 CLOSE (UNIT = BLI) 
0210 CLOSE (UNIT = INP) 
0211 CLOSE (UNIT = TMP, DISPOSE="DELETE') 
0 ig REWIND (UNIT = MAR) 
021 CALL REAREND 
0214 CLOSE (UNIT = MAR, DISPOSE="DELETE') 
0215 CLOSE (UNIT = MASS 
9 16 ; CALL EXIT 
Ogi8 c ERROR OPENING INPUT FILE 
$520 500 TYPE 1010 
0221 1010 FORMAT (* ZMDL-F-Error opening input file’) 
deee RETURN 
$552 510 TYPE 1020 
0225 1020 FORMAT (° ZMDL-F-Error opening mars output file’) 
0226 RETURN 
0397 
0228 520 TYPE 1030 
0229 1030 FORMAT (* ZMDL-F-Error opening bliss output file’) 
9230 RETURN 
0932 530 TYPE 1040 
023 1040 FORMAT (° ZMDL-F-Error opening temp file’) 
0234 RETURN 
0235 
0236 END 
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726 DISKSVMSMASTER: MOL 32. SRCIMDL32.FOR; 1 
PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 795 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA § 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 8 PIC CON REL LCL NOSHR NOEXE WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
S STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GB SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE “19 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5811 
ENTRY POINTS 
Address Type Name 
0-00000000 GETCMD 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 3s §-3 G000A0 CHAR BLINAM 19-0000028¢ I*2 BLIPTR 5-00000012 L*2 BLKOUT 
9-0000012A I*2 BOFSET -0000016C I*2 CBASE 9- 44 gf I*2 CINCR P44 4 I*2 COL 
-O00000FO CHAR COMLINE 5- 4448 L*2 CONEXP 8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 
L*2 ENDFIL ¢- B86 t43 I*2 ENDOUT 11-00000004 I*2 EOLCH g- 008 178 I*2 EQSIGN 
1 I*2 ERR -00 002 L*2 ERROR 3° OQOQO0E L*2 ERROUT “$8 . 010 L*2 FLDLAS 
\¢ I*2 FOFSET 9- 8 I*2 FSIGN -00 4 I*2 FSIZ $- 17A I#2 |] 
-00000174 I*2 IER \¢- I* NP 10- ; AS I*2  INPLI “88 000 CHAR INP 
1 AG I*2  INPT - 1€ I*2 LASLIN 9-000 13 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 
126 I*2 LINTYP - i728 I*2 LLEN - 18 I*2 LPTR 9-00000214 I*2 LSBSI 
12 Ie R - 50 CHAR MARNAM 10- 9A I*2 MARPTR 12-000 C I*2 MAS 
—E I*2 MNGCNT = $f I*2 NEGCNT 4- $08 ar - 4 I*2 OBBITS 
3 It FSIZ ~ I*2 OUNSIZ - L*2 POSOFF - L*2 SMASK 
1 I*2 SOFSET - bee L*2 STGEQL -00000006 L*2 STROK 11- I* AB 
\§ It TMP = L* TMPIN -Q000001A L* TMPOUT 9- ; It TOKTYP 
1 A I*2 TTY - 9 L*2 UNDOK -000000B2 I*2 UNISIZ 5-O0000000A L*2 VMASK 
9-00000124 I*2 VOFSET 9-000001 It $12 
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ARRAYS 
Address Type Name 


Dimensions 
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GETCMD 
I*2 OPAREN 
I*2 OSBNAM 
1*2 OTGNAM 
I*2 OUNTYP 
I*2 PCTSEM 
L*1] PREFIX 
I*2 PRENAM 
I* RANHYP 
I*2 RSTLIN 
I*2 SEMSPC 
I*2 SPCSTG 
I*2 SPHYSP 
I*2 STRSTG 
I*2 SUFDEF 
I*2 SUF 
I*2 TABEQS 
I*2 TABL 
I*2 TABOP 
I*2 TABPRN 
I*2 TABR 
I*2 TABSTG 
I*2 TA 
I*2 TMPVAL 
I*2 TOKSTG 
I*2 UNDVLD 
I*2 UNITY 
I*2 ZEROSG 
I*2 ZRLAHY 
LABELS 
Address Label Address Label 
ee 50 O-O00000AF 60 
0-00000303 530 1-00000041 1010° 


FUNCTJONS AND SUBROUTINES REFERENCED 
Type Name 


FORSCLOSE 
I*2 LIBSGET_FOREIGN 
REAREND 
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Address Label Address’ Label Address Label Address Label 
0-00000263 100 0-00000288 50 0-000002D3 510 0-000002EB 520 
1-00000064 1020' 1-0000008D 1030° 1-00000087 1040° 

Name Type Name 

FORSEXIT FORSOPEN 

LIBSINDEX LIBSSTOP 

STPROC 
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16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 79 
Baer aee Btie5:Se || iebimGaasten: PROC 35° sRCIMOL32.FoR:1°% 


0001 ¢ SUBROUTINE LITSTG(CS,LS,NC) 
$008 ; CONVERT LITERAL STRING TO COUNTED STRING 
$008 IMPLICIT INTEGER(A=Z) 
B08 INTEGER LS(*),CS(#) ,A(30) 
000 C 
0008 N = NC/241 
0009 ENCODE (60,100,A) (LS(1),1=1,N) 
0010 100 FORMAT ( Ag? 
0011 DECODE ( 00,A) (CS(1),1=2,NC+1) 
9018 200 MAT(150A1) 
1 CS(1) = NC 
0014 RETURN 
0015 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 171 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 11 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 104 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 286 
ENTRY POINTS 
Address Type Name 
0-00000000 LITSTG 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
2-0000003E I*2 | 2-0000003C I*2 N AP-0000000Ca I*2 NC 
ARRAYS 
Address Type Name Bytes Dimensions 
I33 ps 60 (30) 
AP a@ie2 CS ee (2) 
AP 8a I*2 LS ee = (#) 


” - ? 4 oO 7 - - 
eshte if: Haars 8:25:82 DL EKSUMSRAS TEN: EADLSS° SRCIMDL32.FOR: 1°%° 7 
LABELS 
Address Label Address Label 


1-00000000 100° 1-00000005 200° 
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SUBROUTINE NUMSTG(CS,X) 
CONVERT INTEGER TO COUNTED STRING 
imbeen. St) SACO) z) 


Oona 


Tesee (®) et iahiaal 
ENCODE a 
100 BReboee we a) 8 
200 OOo OATS 5 
00 10 I = 1,1 
1 IF(B(1).NE.* *)GOTO 20 
2 C$(1)=11-] 
DO 30 J=1,10 
30 CS(J-142) = BJ) 
RETURN 
END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 163 PIC CON 3 
1 SPDATA 8 PIC CON RE 
2 SLOCAL 80 PIC CON RE 
Total Space Allocated 251 


ENTRY POINTS 
Address Type Name 
0-00000000 


VARIABLES 
Address Type Name 
2-00000028 I*2 | 


Address Type Name 
2-0000002A I*2 J 


ARRAYS 
Address Type Name Bytes Dimensions 
I*2 A (10) 
a-posoone 13 8 18 
AP a I cs ee (#) 


VAX=11 FORTRAN 
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ifeseo-1984 81:57:35 


L LCL SHR _ EXE 
L LCL SHR NOEXE 
L LCL NOSHR NOEXE RD WRT LONG 


Address Type Name 


RD NOWRT LONG 
RD NOWRT LONG 
AP-00000008@ I*2 xX 
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pra ig-Se0- 13h 81:85:88) BEScbimGRASten Emoc3S¢secamor3z.rors1°% ° 
LABELS 
Address Label Address Label Address Label Address Label Address Label 
hel 10 0-00000072 20 el 30 1-00000000 100' 100000003 200' 
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16-Sep-1984 01:57:23  VAX=11 FORTRAN V3.4-56 Page 83 STA 
~3ee 88S 81:85:88 Nae dWERREFEN Yaa t's3°secampisz.rons® 
¢ Version v02-001 PRC 
CR ee eee eee EH AAA AAAAAAAAAAEAAARAAAAAAAAAAAAAAAETAAA HEATER EES 
Ce * 
C* Copyright (c) 1980 * 
eS by DIGITAL Equipment Corporation, Maynard, Mass. : 
C* This software is furnished under a License and may be used and copied * 4 
. Ce = mn accordance with the terms of such License and with the * | 

10 C* inclusion of the above copyr ght notice. This software or any other * ‘ 

11 C* copies thereof ay not be provided or otherwise made available to any * 

1 C* other person. No title to and ownership of the software is hereby * g 
Sole Fs transferred. : 40 
0015 C* The information in this software is subject to change without notice * i. 
9016 C* and should not be construed as a commitment by DIGITAL Equipment * 12 
id FG es Corporation. : 

0019 C* DIGITAL assumes no responsibility for the use or reliability of its * 
oe es software on equipment which is not supplied by DIGITAL. 2 ENI 
a8 ¢ Cee eee eee AAAAAAAAREEAAERAAE AERA AAEEAAAEEEEAEEETAAAEEEAAAKKEKEEEE 
C 
o0 ; : REVISION HISTORY: ¢ 
0026 C TIM HALVORSEN 31-MAR-1980 ALLOW ANY LETTER AS UNIT NAME AND 
0027 C ASSIGN UNIT SIZE OF 1 FOR UNKNOWNS 
0028 «=i VAR 
0029 
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16-Sep-1984 01:57:23 VAX-11 FORTRA fa 84 
g- 900-1387 9:25:83 DISKSVMSMASTE N Yar 33° SRCIMDL32.FOR;1 - 
23-03-77 cP INITIALIZE THE STRING SUFNAM TO 
THE SAME STRING OF CHARACTERS AS 
THE STRING SUFDEF. 
SUBROUTINE GETSTC 
LINE IS IDENTIFIED AS A STRUCTURE DECLARATION, 
THIS estes GETSTC, IS CALLED TO COLLECT THE NAME 
OF THE uRE (HEREAFTER REFERRED TO AS THE PREFIX) 
AND ree sey COPTIGHAL) 
THE INPUT ARGUMENT IS THE 


ort OFFSET TO THE NEXT 
CHARACTER TO BE READ IN THE INPUT LINE. 


IF AN ERROR IS DETECTED, THE LOGICAL VARIABLE STROK IS 
SET TO FALSE. 


INCLUDE ‘SRCS:MDL32CMN.CMN/NOLIST' 


FIRST INITIALIZE THE SUFFIX NAME TO THE DEFAULT VALUE. 
ALSO INITIALIZE THE PREFIX NAME TC A LENGTH OF ZERO. 


D0 10 I = 1,4 

gohan (1) = SUFDEF (1) 

PRENAM (1) = 0 

NOW LOOK FOR THE STRUCTURE PREFIX NAME. 


ie (DEBUG) TYPE 500 
FORMAT (° INTO GETSTC') 

CALL _G hs 

IF (TOKTYP Ae ALPHA) GOTO 100 

CALL MOVSTG (TOKSTG, PRENAM) 

IF (DEBUG) TYPE 510, (PRENAM (1), I = 2, PRENAM (1) + 1) 

FORMAT (° PREFIX IS ',15A1) 


( 
§ 
¢ 
¢ 
¢ 
¢ 
¢ 
§ 
§ 
§ 
¢ 
¢ 
§ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
§ 
¢ 
1¢ 
¢ 
z| 


= 2, SUFNAM (1) + 1) 


CALL_GETTOK 

IF (TOKTYP .NE. COMMA) GOTO 15 
CALL ercoe 

IF (TOKTYP .NE. ALPHA) GOTO 100 
CA STG _(T G. $ 

FORMAT (* SUFFIX IS °,15A 


-_ 
wn" 
~ 
o 
m 
@o 
Cc 
i>) 
~~ 
“+ 
< 
wv 
m 
wm 
~Nm- 
So 
~ 
~~ 
wn 
bg 
s 
~ 
— 
~ 
> 
~ 
i] 


TYPE 1000 
FORAAT | i peels STRUCTURE DECLARATION*) 
—* E. 


ae Mee ee ee eo oh Os te 8s 1 SESS FR 


nN 7 
GETSTC 16-Sep-1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 85 STA 
97900-1382 1:35: 4 DISKSVMSMASTER: EMBL 32, SRCIMDL32.FOR:1 ” 
¢ 
PROGRAM SECTIONS { 
Name Bytes Attributes f 
0 S$CODE 212 +PIC CON REL LCL SHR EXE RD NOWRT LONG ¢ 
1 SPDATA 48 PIC CON REL LCL SHR NOEXE RD NOWRT LONG } 
; SLOCAL 3 PIC CON REL LCL NOSHR NOEXE RD WRT LONG é 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 
: STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 
MORS7<¢ 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
B CHECKS ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 5 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG § 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 5 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG ( 
Total Space Allocated 4195 ¢ 
ENTRY POINTS 
Address Type Name 
0-00000000 GETSTC 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 1*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10- o028¢ I*2 BLIPTR atte: L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
$-00000000 I*2 DEBUG 3- 0000014 L*2 ENDEXP 3-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
1 I* R -00000002 L*2 ERROR 5-Q000000E L*2 ERROUT 5-00000010 L*2 FLDLAS 
§-00000128 1*2 FOFSET 9- 9000086 I*2 FSIG 9~000000B4 Ie? FSI2Z 2-00000000 I® 
12 I*2 INP 10-000000A8 I*2 INPLIN 10-000000A6 I*2 INPT -00000 1¢ I*2 LASLIN 
16 I*2 LFDSIZ 4- 9000004 I*2 LINELEN 3-00000126 I*2 LINTYP 9-00000218 I*2 LPTR 
14 I*2 LSBSI2 i- 004 I*2 MAR 10-990001 A I*2 MARPTR Ig- 000 o¢ I*2 MAS 
— I* GCNT - 90086 1*2 NEGCN 4- 9000009 1*4 NUM -0 999 4 I*2 OBBITS 
9-00000 3 I*2 OFSIZ 9-00000330 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000000C L*2 SMASK 
1 1*2 SOFSET ° 090004 L*2 STGEQL 3-000 06 L*2 STROK 14-99000008 It? TAB 
12- Ie Pp - C Led TMPI -0000001A L*2 TMPOUT 9-0 1*2 TOKTYP 
1 -9000000A I*2 TTY 3-0 900008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0(00000A L*2 VMASK 
9-00000124 I*2 VOFSET -000001 I*2 SIZ 
ARRAYS 
Address Type Name Bytes Dimensions 
$-39008080 1*2 AMASK 4 33 
- 196 I*2 ASIGN 4 (2) 
51E I*2 BLBASE 168 (81) 
10-0000019C I*2 BLIBUF 240 (120) 


Page 86 


MDL32.SRCIMDL32.FOR;1 


VAX=11_ FORTRAN Yeats? 
DISKSVMSMASTER: 


GETSTC 


88888888883555555555555555 


PR( 
1 
1 
1 


~~ 
- 
= ~ ~ ~ ~ 
a~aAann aA aAan AAA Aan A ~ ee a) onnann mM A aa Me 
—O- On-OO00O mn - COM TAMARA AAK RAR ARORMAMAAN CK RK VUAM ROR mR OOORmMO™ 
DO ON OI OO OOD OWN BD OR. CUCU OOO OOD &— COCO COMI OI IN eS 


— a a a a a a a a a a a a at at a et et et et et et et ee ee ee ee ee 


ODOM CUCUIRMMO DQDNNNN EN RK KKK Nr KM ~ CO Mew wrOOOnmM ™ w meres Be 


—_— oF — ene m — -_ 


pap tet ot + tet $y err Serpe p bat by pert Sr a eosuee Z2ZQa2reuZ ee=ee 

VeD Ode Zo a mt titty See fete tS fer ”I0 fwu > .HeOD OF Owrtw weet > 

ZUM YO St St Se beet be pe pr pe —a>amw Pictet ete tt pet Pet tt ree —Yu Z=z 

B3555555555a5 Suusssdcasana seen xk ose <=eeeessu Sse earesuees 
—— 

rT.¥- patetetetetetststatey-¥-9-9-9-)-)-?-9-9-9-9-tripreprininintrs spe pet ttt r 4 SSS5500 aaac 

Cavravla tora tiatiatiatiatiatl Sc avl rav at ea 


Sees enznae 
OS a ed ag ed Od ad Ed nd a dd Ed EP) Ed En DH hh Sd Edd nd Od nd OD 
io 


VWwwwwenus 


+ 

Og Om 

: «ow al) 
: 
4 

CoO ele 


NWO ETTVUOVYOODOOUNWOOT Oy 
Or OWOV KUNST LOOR INOEMe eM 
—MO-Oe ee oer 


: 
L 
0000 


——— 


~wy ey eS eww wT TTT 


= = Se =H = = 
> < 


PL/ 


Page 87 


Ye at33° 
: CMDL32.SRCIMDL32.FOR;1 
510° 


Address 
fr 


Label 


RAN 
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Address 
1-00000000 500' 
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OUTSTR 
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159 REWIND TMP LAI 
160 TMPIN = FALSE. 
161 ENDF IL =". FALSE. 
16¢ GOTO 10 
16 
164 12 CALL GETTOK 
165 IF (DEBUG) T YPE 1000, den 
0166 1000 FORMAT (* TOKTYP | Ful 
016 IF (TOKTYP ONE. ALBun GOTO 15 
0168 IF (DEBUG) TYPE 1 20, 5 Goro (1), 1 = 2, TOKSTG (1) + 1) 
0169 1020 FORMAT (' TOKSTG IS °,15A1 
170 CALL CMPSTG (T OKsTG, §TRSTG) 
171 IF (STGEQL) GOTO 2 
7 CALL CMPSTG {TOKSTG, STRUSR) 
o173 IF (STGEQL) GOTO 21 
0175 ¢ THIS LINE DOES NOT DECLARE iy STRUCTURE. JUST OUTPUT IT 
0176 ¢ TO BOTH BLISS AND MARS AS | 
0178 3s «15 CALL OUT2LN 
o179 GOTO 10 
O18t C USER STRUCTURE DECLARATION RECOGNIZED. REMEMBER TO CHANGE 
O18¢ ¢ THE TAGNAM SO THAT UNDERSCORE IS USED RATHER THAN $. 
018% 21 STRTYP = *_* 
018 «= STRUCTURE DECLARATION, RECOGNIZED. COLLECT THE PREFIX AND 
0187 «OC SUFFIX NAMES AND OUTPUT THE STRUCTURE DEFINITION LINES 
0188 ¢ CTAGNAM (2) IS SET TO YNDI CATE THE PROPER FORM OF MACRO NAME). 
0190 20 LINTYP = 0 
0191 BLKOUT = .FALSE. 
019¢ TAGNAM (2) = STRTYP 
19 CALL GETSTC 
0194 IF (STROK) GOTO 25 
0195 RETURN 
0197 «—«¢ NOW INPUT A LINE AND SEE WHAT TYPE OF DEFINITION IT IS. 
0198 «= ¢ THE STRUCTURE VARIABLES HAVE BEEN INITIALIZED BY GETSTC. 
0199 ¢ (RESET TAGNAM(2) BECAUSE STRUCT INIT. SETS IT TO '$'). 
01 3925 TAGNAM (2) = STRTYP 
0¢ POSOFF = . TRUE. 
CALL GETLIN 
04 IF (.NOT. ENDFIL) GOTO 30 
05 IF (.NOT. TMPIN) RETURN 
06 REWIND TMP 
TMPIN = .FALSE. 
08 ENDFIL =" FALSE. 
09 GOTO 25 
11-30 CALL _GETTOK 
ig IF (TOKTYP .€Q. MINUS) GOTO 35 
1 IF (TOKTYP .NE. PLUS) GOTO 4 
14 GOTO 40 
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16-Sep-1984 01:57:23 
green Re 81:85:50 
POSOFF = .FALSE 

INBUF (INPTR = 1) = ‘4° 

IF ot. T. TMPIN) GOTO 40 


T 
FORMAT % NEGATIVE DEFINITION IN TMP FILE") 
RETURN 


L 


~r 


ETTOK 
OKTYP .EQ. ALPHA) 


CA 

IF (¢ «AND. 

1 (TOKSTG (1) .€@. 1)) GOTO 55 
CALL OUT2LN 

6015 25 

IF (TOKSTG (2) .NE. ‘F*) GOTO 65 
IF (.NOT. POSOFF) GOTO 60 

IF (FLDLAS) CALL CHKALC 

LINTYP = FIELD 

CALL PFIELD 

GOTO 25 


IF (POSOFF) GOTO 70 
YPE 


T 2010 

FORMAT (° INVALID NEGATIVE DEFINITION’) 
GOTO 50 

If (TOKSTG (2) .€Q. 'E*) GOTO 155 

IF (TOKSTG (2) .£Q. ‘'M*) GOTO 169 

IF (TOKSTG (2) .EQ. ‘'P*) GOTO 1 

IF (TOKSTG (2) .EQ. '0°) GOTO 1 8 

IF (TOKSTG (2) .€Q. "V*) GOTO 14 

IF ((TOKSTG (2) .€Q. °C") .OR. 

1 (TOKSTG (2) .EQ. "K*)) GOTO 145 
IF (TMPOUT) GOTO 50 

IF (TOKSTG (2) .£Q. *S') GOTO 135 

IF (TOKSTG (2) .€Q@. "L*) GOTO 150 

GOTO 50 


PROCESS A SUBFIELD DECLARATION 
LINTYP = SBFLD 

CALL * hee 

GOTO 2 

PROCESS A BITFIELD DECLARATION 
LINTYP = VIELD 

CALL SyieLe 

GOTO 2 

PROCESS A CONSTANT DECLARATION 


LINTYP = CONST 
CALL pens! 
GOTO 2 


VAX=11 FORTRAN 
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STPROC if-se son- 138? gi: 3: $3 VAX=11_ FORTRAN Page 91 


-Sep- DISKSVMSMASTER: fmoL33° SRCIMDL32.FOR; 1 


qP C PROCESS A LABEL DECLARATION 
150 IF (FLOLAS) CALL CHKALC 
LINTYP = LABELN 


CALL me 
GOTO 2 
C PROCESS AN END DECLARATION 
155 If (TMPOUT) GOTO 157 
IF ence CALL CHKALC 
CALL ‘J STE 
RETU 
CALL OUT2LN 
CALL L STANEG 
C THIS IS A POSITION MARKING 


160 LINTYP = MARKPT 
CALL PMARK 
GOTO 25 
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C THIS IS A POINT COMMAND 


165 IF {FLDLAS? CALL CHKALC 
LINTYP = * NTD 
CALL PPOIN 
GOTO 25 


Ssess 


C THIS IS A REORIGINING COMMAND 


170 IF srLSLAS) CALL CHKALC 
LINTYP = ORIGIN 
CALL PPNINT 
GOTO 25 
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VARIABLES 
Address 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type Name 
0-00000000 


Address 


Total Space Allocated 


STPROC 


Name 
BINVAL 
BL 


Name 

AMASK 
ASIGN 
BLBASE 
BL IBUF 


Attributes 
CON REL 


- 
° 
2 
DDD 
r 


vuvvVvVUvUVUUUUUYU 
De fe Ba fee han baa fhe Bee Pend fan Be Be a 
AOMOOOOOOOOorn 

oO 

< 

= 


o 

< 

= 
DDDDDBDDD 


Address Type Name 


-00000 go 
4 ¢ 
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son eere 
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Bytes Dimensions 


4 
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16 
24 


@) 
(2) 
(81) 


(120) 
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2:33 VAX=11 FORTRAN 
726 DISKSVMSMASTER 


RD NOWRT LONG 
RD NOWRT LONG 
RD WR 


WRT LONG 

RD WRT LONG 
RD WRT LONG 
Rb WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT L 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
Type Name 

I*2 BLBITS 
L*2 BLKOUT 
I*2 COL 

L*2 ENDFIL 
L*2 ERRO 

I*2 FSIZ 

I*2  INPT 

I*2 LINTY 
I*2 MARPTR 
I*4 NUM 

L*2 POSOFF 
L*2 STROK 
L*2 TMPIN 
L*2 UNDOK 
I*2 VSIZ 
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Address Type Name 


BLFOFS 


K 
STRTYP 
OUT 
UNISIZ 
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I*2 RSTLIN 189 (90) 

I*2 SEMSPC (3) 

I*2 SPCSTG 4 (2) 

I*2 SPHYSP (4) 

I*2 STRSTG 32. (16) 

I*2 STRUSR 1 (7) 

I*2 SUFDEF (4) 

I*2 SUF 32 (16) 

I*2 TABEQS (4) 

I*2 TABLAN 6 (3) 

It2 TABOPR (3) 

I*2 TABPRN 1 (5) 

I*2 TABRAN (3) 

I*2 TABSTG 4 (2) 

I*2 TAGNAM 32 (16) 

I*2 TMPVAL 18 (81) 

I*2 TOKSTG (40) 

I*2 UNDVLD 1 (9) 

I*2 UNITYP 4 (2) 

I*2 ZEROSG 4 (2) 

I*2 ZRLAHY 10 (5) 

LABELS 
Address Label Address’ Label Address Label Address Label Address’ Label Address Label 
0-0000002E 10 0-00000058 1 Q-O00000FA 15 0-0000010A 20 0-00000104 21 a 49 4 SES 3 5 
0-00000167 30 0-00000182 3 am 444 $F 40 Q0-000001BA 45 0-000001CC 50 -000001D6 55 
O-000001FC 60 an 444 65 0-0000022C 70 8 Oho noses 135 a 4 44 C944 140 0-900002AC 145 
p's 4 55 94 150 0-000002DD 155 0-000002FC 157 0-00000350D 160 0-00000 i 165 0-00000353E 170 
1 D 1000° 1-00000000 1010' 1-0000001D 1020' 1-0000002F 2000' 1-00000052 2010° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CHKALC CMPSTG GETLIN GETSTC GETTOK OUT2LN 
OUTSTE PCONST PFIELD PLABEL PMARK PPOINT 


PSBFLD PVIELD STANEG 


P&P PR PR LPP PPL LAP LL OD — 


P 


kK 8 
Mer geen BBs 81:85:88 | WIRE MSRASTEN: PRDC SS sRcIMDL32.FoR:1°%” 7 
REVISION, HISTORY 


TC BATee EXTRANEOUS STATEMENT 


COON 


SUBROUTINE STANEG 
THIS IS A NEW ROUTINE, VERSION 1.3 


THIS CLOSES i” TMP fits FOR OUTPUT 
SETS FLAGS SO THAT ExT. NOW COMES 


FR 
HUTPUTS NEGATIVE BLOCK ALLOCATION TF” 
INCLUDE 'SRCS$:MDL32CMN.CMN/NOLIST* 


END FILE TMP 
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00; 
01; 
01; 
01; 
01: 
01; 
01: 
01: 
01: 
01: 
01; 
01: 
01 
01: 
Qld 
14 
14 
i 
1 
14 
14 
O01 
14 
14 
1! 
1! 
1 
1 
1 
1! 
1 
1 
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STANEG IGege =1984 01:57:23 -VAX=11 FORTRAN V3.4-56 Page 96 Pv! 
~300n 138% 94:25:82 DI SKSVMSMASTER: (MOL 32, SRCIMDL32.FOR: 1 ° 
PROGRAM SECTIONS 
Name Bytes Attributes 
SCODE 107 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG PIC OVR REL GBL SHR NOEXE RD WRT LONG 
t CHECKS ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 4014 
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Address Type Name 
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0-00000000 STANEG 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK Fa 4 4 FE I*2 BLBITS 9-00000332 I*2 BLFOFS 
iF ae sis ss 464 le2 BLI 10-0000028C I*2 BLIPTR 5-0000001 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9 16C I*2 CBASE 9- OhORO TE I*2 CINCR 4- 4 4 494 I*2 COL 5-00000016 L*2 CONEXP 
8 I*2 DEBUG 2 0 bog L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12 I*2 ERR -00000002 L* RROR 5-Q000000E L*2 €RROUT aes 4 44 9h L*2 FLDLAS 
1 I*2 FOFSET 9- ; 086 I*2 FSIGN 4444's I*2 FSIZ 12-00000000 I*2 INP 
1 I*2 INPLIN 10- OA6 I*2 INPTR 9-00000 \f I*2 LASLIN 9-00000216 I*2 LFDSIZ 
4 A I*2 LINELEN 9-0000 130 I*2 LINTYP 9-0000021 I*2 LPTR 9- B650 14 I*2 LSBSIZ 
12 Ie R 10- Bp 4 A I*2 MARPTR ur s+ 4'4 C I*2 MAS 9-0000086E I*2 MNGCNT 
9-0000086C I*2 NEGCNT 4-000 % 1*4 NUM -00000334 I*2 OBBITS a '444 f It FSIZ 
It S 5- 80 18 L*2 POSOFF 7-88 OO00C L*2 SMASK 9- 4d I*2 SOFSET 
5 Le2 STGEQL 5- 06 L*2 STROK 11-00000002 I*2 TAB 12-00000006 I* MP 
rae siete bE L*2 TMPIN 3-808 at iss TMPOUT 2-98 3 82 I*2 TOKTYP 1 ~RoR 88 Nga I*2 TTY 
8 L*2 UNDOK Qe 2 I*2 UNISIZ 5- OA L*2 VMASK - 124 I*2 VOFSET 
9-00000128 I*2 vSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 
6 A It SK 4 (2) 
g 196 I* SIGN 4 (2) 
S1E I*2 BLBASE 162 (81) 
10 195 I*2 BLIBUF ¢ (120) 
9 I*2 BLINCR 62 (81) 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
OUTBLK 
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ate 
Sep- 


1986 81:34:88 


VAX=-11 FORTRAN 
DISKSVMSMASTER 
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-Sep-1 DISKSVMSMASTER: fmbL33° SRCIMDL32.FOR;1 


600) SUBROUTINE PLABEL 

8008 C THIS ROUTINE IS CALLED WHEN A LINE HAS BEEN RECOGNIZED 

0004 C AS A LABEL DEFINITION. THE IMPLIC ARGUMENT INPTR 4s THE OFFSET 
5 C TO THE NEXT CHARACTER TO BE READ IN THE INPUT LINE. 

O08 C PLABEL COLLECTS THE NAME OF THE LABEL BEING DEFINED AND 
8 C THEN OUTPUTS APPROPRIATE STATEMENTS TO 1HE BL'SS AND MARS 

sed C TRANSLATED FILES. 

Oos INCLUDE ‘SRCS$:MDL32CMN.CMN/NOLIST' 

0114 CALL_GETTOK 

3ii2 IF (TOKTYP wit ALPHA) AF 100 

116 ys Bay (TOKSTG, FLDNAM 

0117 = ‘C’ 

0118 INPTR = INPTR = 1 

0119 CALL MDOUTL (INPTR) 

Biso CALL BDOUTL (INPTR) 

bis3 RETURN 

0138 Cc ERFOR REPORTING 

0125 100 TYPE 1000 

0126 1000 FORMAT (" INVALID LABEL DEFINITION") 

0127 END 


PROGRAM SECTIONS 
Name Bytes Attributes 


0 SCODE 88 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 28 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL $9 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 451 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 3 PIC OYR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LUNG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
3 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4035 
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~300 138% 8:25:88 DI SKSVMSMASTER: (MOL 32. SRCIMDL32.FOR: 1 
ENTRY POINTS 
Address Type Name 


0-00000000 PLABEL 
1 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 


4 1*4 BINVAL 11- 0 I*2 BLANK 9- 12 12 BLBITS 9-00000332 1I*2 BLFOFS 1 
1 a ftiitt I*2 BLI 10- ite C I*2 BLIPTR 2-8 tae: L*2 BLKOUT 9- , 012A I*2 BOFSET 
-0000016C 1-2 CBASE 9-0000016E I*2 CINC 4=00000004 I*2 COL 5-00000016 L*2 CONEXP 
8 I*2 DEBUG s 0014 Led ENDEXP =00000000 L*2 ENDFIL 11-00000004 I[*2 EOLCH 
12-00000008 I*2 ERR -00000002 L*2 ERRO = 000 0 O€ L*2 ERROUT 5-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET 9-000000B6 I*2 FSIGN -000000B4 I*2 FSIZ 12-000 0000 I*2 INP 
10-000000A8 I*2 INPLIN 10- 990006 I*2 INPTR 3-000 0 ig I*2 LASLIN 9-00000216 I*2 LFDSIZ 
4-0000000A I*2 LINELEN 9-0000 126 1*2 LINTYP 9-00000218 I*2 LPTR 9-00000214 I*2 LSBSIZ 
12=00000004 I*2 MAR 10-0000019A I*2 MARPTR 12-00000 g¢ I*2 MAS 9-0000086E I*2 MNGCNT 
9-0000086¢ 1*2 NEGCNT 4~00000000 1*4 NUM 9-00000334 I*2 OBBITS 9-0000032 1*2 OFSIZ 
9-00000330 I*2 OUNSIZ 3-9000001 L*2 POSOFF 5-0000000C L*2 SMASK 9-0000012 I*2 SOFSET 
5-00000004 L*2 STGEQL -00000006 L*2 STROK 11-00000002 I*2 TAB 12-00000006 I*2 TMP 
5-0000001C Lee TMPIN 5-0000001A L*2 TMPOUT 9-00000050 I*2 TOKTYP 12-0000000A I*2 TTY 
5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 


9-00000128 I*2 vVSIZ 


ARRAYS 


Address Type Name Bytes Dimensions 
I*2 AMASK 
I*2 ASIGN 
I*2 BLBASE 16 ) 
I*2 BLIBUF 24 0) 
I*2 BLINCR 16 ) 
I*2 BLSSIZ 2 ) 
I*2 BVALUE 16 ) 
I*2 BYTSIZ 2 ) 
I*2 COMGBL 1 
I*2 COMMAS 
I*2 CONBAS 
I*2 CONINC 
I*2 CONPRE 


I*2 CONTEX 1 
I*2 CPAREN 
I*2 CPRCOM 
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LABELS 


Address Label Address Label 
0-00000040 100 1-00000000 1000° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
BDOUTL GETTOK MDOUTL MOVSTG 
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o 
iB-se 
“Se 
2 
NF 
ERS 
STG 
- ‘A*)) GOTO 20 


UNIT 
I 
S 
U 
0 
EQ 


(TOKSTG (2) . 


RIPTOR ANALYZER‘) 
OR. 


*) GOTO 15 


".*) 


- 'Q*) GOTO 25 


INCLUDE *SRC$:MDL32CMN.CMN/NOLIST' 
(* IN UNIT 


SUBROUTINE GETUND 
0 
P 


UNDOK = .FALSE. 


RETURN 
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UNDOK = - TRUE. 
END 


RETURN 
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PROGRAM SECTIONS q 
Name Bytes Attributes 
9 SCODE 14 PIC CON REL LCL SHR EXE RD NOWRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
& VARS 13 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 8 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ CHECKS : PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 8 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 8 
Total Space Allocated 4047 8 
0 
ENTRY POINTS 8 
Address Type Name 03 
0-00000000 GETUND 0 
VARIABLES 8§ 
Address Type Name Address Type Name Address Type Name Address Type Name 83 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000 12 I*2 BLBITS 9-000003 2 I*2 BLFOFS 03 
12 I*2 BLI 19-00000¢ C I*2 BLIPTR 5- 3008 12 L*2 BLKOUT 9-0000012A I*2 BOFSET ; 
16C I*2 CBASE 9- 90 9 6E I*2 CINCR 4-00000004 I*2 COL 5-0000 O16 L*2 CONEXP 
I*2 DEBUG -00 14 L*2 ENDEXP “00000000 L*2 ENDFIL 11- 900 4 I*2 EOLCH } 
1 I*2 ERR -000 0¢ L*2 ERROR -900 — L*2 ERROUT 3-00 9 10 L*2 FLDLAS 
1 I*2 FOFSET - 5 I*2 FSIGN 00000084 I*2 FSIZ 12-00000000 I*2 INP 3 
1 I*2 INPLI 19-9 Ong I*2 INPTR 9-0000 1¢ I*2 LASLIN 3-000 16 I*2 LFDSIZ 3 
4 A I*2  LINELEN 9- fF I*2 LINTYP 00000218 I*2 LPTR 9-00 14 I*2 LSBSIZ 3 
1 I* R 10- 19A I*2 MARPTR 12- 9¢ I*2 MAS 9-00 90 — I*2 MNGCNT ; 
1*2 NEGCNT 4- 09 1*4 NUM - 4 I*2 OBBITS 9-00 F I*2 OFSIZ 3 
I SI - S 00018 L*2 POSOFF 5- 5 0 L*2 SMASK 9- 9 1 I*2 SOFSET b 
L*2 STGEQL - 9 06 L*2 STROK 11-00 ; I*2 TAB 12- 0 I*2 TMP 4 
1¢ Le MPIN -000 1A L*2  TMPOUT q- 309 I*2 TOKTYP 12-0000000A I*2 TTY 5 
-80000008 w UNDOK 9-000000B82 I*2 UNISIZ -0000000A L*2 VMASK 00000124 I*2 VOFSET } 
7 
i 
ARRAYS i 
Address Type Name Bytes Dimensions j 
#2 AMASK 4 (2) ' 
I* SIGN 4 (2) : 
I*2 BLBASE 162 (81) ' 
I*2 BLIBUF 24 ( 20) ; 
#2 BLINCR $ (8 ) i 
I*2 BLSSIZ (10) i 
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*2 SPCSTG 4 (3) 
*2 SPHYSP (4) 
#2 STRSTG (16) 
*2 SUFDEF (4) 
#2 SUFNAM (16) 
I*2 TABEQS (4) 
I*2 TABLAN (3) 
I*2 TABOPR (3) 
I*2 TABPRN 1 (5) 
#2 TABRAN 6 (3) 
*2 TABSTG 4 (2) 
*2 TAGNAM 32. «¢ § 
I*2 IMPVAL 8 (81) 
I*2 TOKSTG (40) 
I*2 UNDVLD 1 (9) 
I*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address’ Label Address Label Address Label Address Label Address’ Label 
0-00000051 15 0-0000005D 20 0-00000076 25 0-00000085 30 0-0000008D 100 ae 500° 
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REVISION, HISTORY 
23-03-77 cP IF SAVING INPUT IN TMP FILE, SAVE 
EACH LINE OF A BITFIELD DECLARATION, 
AND RETURN AFTER THE CLOSING RIGHT 
ANGLE BRACKET. 
22=04-77 TC CALL BDOUTL AT START AND 


END TO OUTPUT COMMENTS INTO 
THE BLISS FILE. 


SUBROUTINE PVIELD 


THIS ROUTINE IS CAL 
AS A BITFIELD DEFIN 
INPTR IS THE OFFSET 

E 


PVIELD COLLECTS TH 
BE DEFINED. THEN IT CO 
EACH BITFIELD DEFINITION CAN HAVE A NAME, S SIGN, A 
INDIVIDUAL MASK. EACH BITFIELD IS PROCESSED AND OUTPUT. 


WHEN A SINGLE LEADING RIGHT ANGLE BRACKET IS RECOGNIZED, 
PROCESSING OF THE VIELD IS COMPLETE. 


INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' 
INITIALIZE MASK AND SIGN ARGUMENTS 


VMASK = .FALSE. 
AMASK (1) = 0 
ASIGN (1) = 1 


CALL_GETTOK 

IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
T (* *,90A1) 

TOKTYP .NE. LANGLE) GOTO 100 

T TO 50 


S 
> 


rc 


PE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
[ ALPHA) GOTO 10 
) 


rs hea bea bea ea eal 


»NE. 1) GOTO 110 
oNE. "M') GOTO 110 
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THE POINTER INTO THE INPUT LINE IS TOO FAR ALONG, BACK IT 
UP ONE POSITION. 


INPTR = LASTNB (INPTR = 2) 
NOW OUTPUT THE LINE THAT INITIATES A BITFIELD DEFINITION LIST. 
VOFSET = _0 


TAGNAM (3) = ‘y* 
CALL MDOUTL (INPTR) 
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188 CALL BDOUTL (INPTR) 
16 C INITIALIZE VARIABLES, AND INPUT A LINE. 
188 15 v$IZ = 0 
164 FSIGN = 0 
165 SMASK = . FALSE. 
166 IF (.NOT. VASE) AMASK (1) = 0 
16 ASIGN (2) = ‘O° 
168 DO 20 1 = 1, 15 
169 FLDNAM (1) = 0 
i ; 20 CONT INUE 
1% 21 CALL GETLIN 
17 IF (.NOT. ENDFIL) GOTO 22 
17 RETURN 
0176 c CHECK THE FIRST TOKEN. IF IT IS A RIGHT ANGLE 
O17 C THIS IS THE LAST STATEMENT IN THE BITFIELD DEFINITIONS. 
0179 ~=—s 22 CALL GETTOK 
0180 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0181 IF (DEBUG) TYPE 510, TOKTYP 
O18¢ 510 FORMAT (' TOKTYP IS '',13 
01 IF (TOKTYP .€Q. RANGLE) GOTO 90 
0184 IF (TMPOUT) GOTO 50 
0185 LINTYP = BITFNM 
O18? c SEE IF THIS HAS A BITFIELD NAME OR IS END OF LINE 
0189 IF (TOKTYP .€Q. ALPHA) GOTO 24 
0190 IF ((TOKTYP .NE. SEMI) .AND. 
191 1 (TOKTYP .NE. EOL)) GOTO 25 
He C THIS LINE IS BLANK OR ONLY COMMENTS 
195 CALL OUTBCL 
0196 GOTO oY 
0198 c THIS IS A BITFIELD NAME DEFINITION 
0 00 24 CALL MOVSTG (TOKSTG, FLDNAM) 1 
01 CALL GETTOK 
0¢ IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
04 c NOW LOOK FOR THE SIZE FIELD. 
06 25 IF (DEBUG) TYPE 510, TOKTYP 
07 IF (TOKTYP .NE. COMMA) GOTO 40 
8 CALL GETTOK 
IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) AR 
10 IF (TOKTYP .NE. NUMBER) GOTO 3 
11 VS1Z = INTVAL (TOKSTG) 
1 IF (VSIZ .EQ. = 1) GOTO 120 
1 CALL GETTOK 
14 IF (DEBUG) TYPE 500, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 


CALL MDOUTL (INPTR) 
CALL eouTL a 


PUPA SISA ES BE PEPE 


IF (VSIZ .EQ. 3} Y OFSET = VOFSET + 1 
a neo te" -GT. 0) VOFSET = VOFSET + VSIZ 1 
C IF OUTPUTTING TO TMP FILE, JUST DO IT, THEN GO FOR NEXT LINE. 
50 CALL gyreun 
GOTO 21 
C OUTPUT THE FINAL CLOSING OF THE BITFIELD DEFINITIONS. 
90 IF CTRPOUT) GOTO 95 
LINTYP = tae ee 
CALL MDOUYL (INP 


CALL pooute CINPTR) 
RETURN 


C OUTPUT THE FINAL CLOSING LINE TO TMP FILE AND RETURN. 
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i) C NOW CHECK FOR A SIGN FIELD. 1 
18 30 IF (DEBUG) TYPE 510, TOKTYP 
1 IF (TOKTYP .NE. COMMA) GOTO 40 
0 CALL GETTOK 
1 IF (DEBUG) TYPE $00. (TOKSTG_(1), I = 2, TOKSTG (1) + 1) 
¢ IF (TOKTYP .NE. ALPHA) GOTO 3 
IF (TOKSTG (1) iy 1) GOTO 130 
4 IF (TOKSTG (2) :NE. 'S') GOTO 130 
9 5 FSIGN = 1 
6 ASIGN (2) = ‘1° 
9 CALL GETT 
4 8 IF (DEBUG) TYPE S00, (TOKSTG (1), I = 2, TOKSTG (1) + 1) 
0 0 C FINALLY, LOOK FOR A MASK ARGUMENT. 
8 : 35 IF (DEBUG) TYPE 510, TOKTYP 
0 IF (TOKTYP .NE. COMMA) GOTO 40 
0 CALL GETTOK 
0235 IF (DEBUG) TYPE 00. (TOKSTG (1), 1 = 2, TOKSTG (1) + 1) 
0 IF (TOKTYP .NE. ALPHA) GOTO 40 
0237 IF (TOKSTG a) Ne. NS GOTO 110 
0238 IF (TOKSTG (2) :NE. 'M*) GOTO 110 
0239 SMASK = .TRUE. 
0240 AMASK (1) = 
0 1 INPTR = INPTR = 1 
0 Q TO 4 
0244 «OC THE OFFSET INTO THE INPUT LINE IS ONE CHARACTER OFF 
0245 «OC BECAUSE SOME TRAILING OPTIONAL ARGUMENTS WERE OMITTED. BACK UP 
9 6 C THE OFFSET COUNT BY ONE. 
8 40 INPTR = LASTNB (INPTR = 2) 
3 C ARGUMENTS ARE ALL COLLECTED. OUTPUT THE LINE. 
45 
0538 
0254 
0255 
$526 
6588 
59 
60 
61 
85 
64 
65 
6 
68 
69 
0 
71 
0272 
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73 95 CALL OUT2LN 
fe RETURN 
78 C ERROR REPORTING 
7 100 TYPE 1 
i 1980 repeat ce INVALID BITFIELD DEF INITION') 
8 HY RETURN 
§ 110 TYPE 1100 
1100 FORMAT (* INVALID MASK SPECIFICATION’) 
¢ RETURN 
120 TYPE 1200 
1200 Spl (* INVALID SIZE ARGUMENT IN BITFIELD DEFINITION’) 
0289 
8 90 130 lyre 1300 
91 1300 ORMAT (° INVALID SIGN ARGUMENT IN BITFIELD DEFINITION’) 
0292 END 
LA 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 sCODE 1390 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 181 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 6 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG FU 
PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5526 


ENTRY POINTS 
Address Type Name 
0-00000000 PVIELD 
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:26 DISKSVASMASTER: CMDL32.SRCIMDL32.FOR;1 
VARIABLES 

Address Type Name Address Type Name Address Type Name Address Type Name 


Or 
0 
o1 
1*4 BINVAL 11- 0 I*2 BLANK - 12 1I*2 BLBITS 9-00000332 I*2 BLFOFS Of 
I*2 BLI 10- ° 6 2 C I*2 BLIPTR 2 13 L*2 BLKOUT 2 12 I*2 BOFSET Of 
I*2 (CBASE - 6 I*2 CINCR 4- I*2 COL - L*2 CONEXP Of 
I*2 DEBUG - 6 14 Led ENDEXP - 0 L*2 ENDFIL 11- 04 I* Of 
It RR - 02 L*2 ERROR - — L*2 ERROUT 5- 19 L*2 FLDLAS O 
1*2 FOFSET - B6 I*2 FSIGN - B4 I*2 FSIZ g- 9 It Of 
I NP 10- A8 I*2 INPLIN 10- Ag I*2 INPTR - c I*2 LASLIN O 
I*2 LFDSIZ 4- A I*2 LINELEN 3 9 13 I*2 LINTY 3 8 18 I* PTR ) 
I*2 LSBSIZ i 4 I*2 MAR 10- 19A I*2 MARPTR 12- o¢ I* AS O 
I*2 MNGCNT -00 ¢ I*2 NEGCNT 4- 9000006 1*4 NUM 9-00000334 I*2 OBBITS 0 
I* FSIZ Q- 9000 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000000C L* MASK Of 
1*2 SOFSET -900 004 L*2 STGEQL 2-90000006 L*2 STROK 14-9000000 I*2 TAB O( 
1s-So000008 ted Thy 790000008 {23 UNGOR 3700000082 is3 UNISTZ Br000000A #3 VRASK 01 
= - ) - - . 
9-00000124 I*2 VOFSET 3-000001 98 I*2 VS.2 ol 
‘ 01 
ARRAYS 4 
Address Type Name Bytes Dimensions 4 
It SK 4 (2) 0 
I*2 ASIGN 4 (2) 0" 
I*2 BLBASE 168 (81) 0° 
I*2 BLIBUF 240 (120) 4 
I*2 BLINCR 198 (81) 
I*2 BLSSIZ 20 (10) 0 
I*2 BVALUE 162 (81) Q' 
I*2 BYTSIZ 20 (10) 0° 
I*2 COMGBL 12 (6) 0 
I*2 COMMAS 4 (2) 0" 
I*2 CONBAS 20 (10) 0' 
I*2 CONINC 0 (10) 0 
I*2 CONPRE (16) 0 
I*2 CONTAG (16) 8. 
I*2 CONTEX 198 (9, 11) | 
I*2 CPAREN 4 (¢ Q' 
I*2 CPRCOM (3) 
I*2 CVALUE 162 (81) 
I*2 DEFEND (10) . 
I*2 DEFINI (10) . 
I*2 DOLBIT (13) . 
I*2 DOLBYT (14) 
I*2 DOLDEF 12 (6) 
I*2 DOLFLD 24 (12) 
Ie 2 (6) 
I*2 DOLLAR 4 (2) 
I*2 DOLVLD 18 (9) . 
I*2 DOTBLK 1 (6) . 
1*2 DOTEQS 10 (5) . 
I*2 DOT : (11) . 
I*2 ENDMAC (9) | 
EQULST 18 (9) 
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PVIELD 


LABELS 


Address Label Address Label 


g-sseeear, J SCRBNEENOS 2 
Fee ERBEE 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name 
BOOUTL GETLIN 
MOVSTG OUT2LN 


Han 


Type Name 


GETTOK 
OUTBCL 


1B-$00-19 4 01:30:83 
-$ep-1984 01:57:26 


ei Hi. 


Type Name 
I*2  INTVAL 
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He, ERGY A, 
| 
| 


Type Name 
I*2 LASTNB 


Type Name 
MDOUTL 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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Version v02-001 


SAKA KK KK AAAAAAAAA AAA AAAAAAAAAAAAAARAAAAAAAEAAAEEAEEAETEEEERERAEATERAEEAEEEE 


COPYRIGHT (c) 1980 
BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


® 

t ® 
® ® 
a ® 
a ® 
* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE T OF SUCH LICENSE AND WITH THE 
: INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR VANY. OTHER = 
+ COPIES. THEREOF MAY NOT BE PROVIDED. OR OTHERWISE MADE AVAILABLE TO ANY © 
* GTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY + 
* TRANSFERRED. * 
ee a 
* THE INFORMATION IN THIS SOFTWARE I$ SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
® ® 
® ® 
& ® 
® ® 
we ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SHACKS AKA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAEAAEARAAEAEAAEAAAKEARERE 
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ee ed ek ed ed ed ed ed ed ed 
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REVISION HISTORY: 

08-03-82 JIM TEAGUE # J 
ADD SIZE SYMBOLS sy FIELDS GREATER 
THAN 4 BYTES LO 

weet BEWARE ee THESE CAN POSSIBLY CAUSE CONFLICTS 
WITH BIT FIELD SIZES. 

19-02-80 TIM HALVORSEN 
IF USER STRUCTURE, USE _VIELD RATHER 
THAN SVIELD. 


SUBROUTINE MDOUTL (PTR) 


C OUTPUTS A_LINE TO THE TRANSLATED MARS FILE. 
C THE ARGUMENT PTR POINTS TO THE LOGICAL END 
C OF LINE IN THE INPUT FILE. 

INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 

INTEGER PTR 

IF (DEBUG) ga "2 
290 FORMAT i. — S$ OUTPUT’) 

IF (LINT p veo. FIELD) GOTO 1 

IF (LINTYP ~-EQ. SBFLD) GOTO § 

IF (LINTYP .EQ. VIELD) GOTO 

IF (LINTYP .EQ. VIELDE) GOTO 35 

IF <LINTYP .EQ@. CONST) GOTO 4 

IF (LINTYP .EQ@. CONSTE) GOTO 4 

IF (LINTYP .EQ, BITFNM) GOTO 5 

IF (LINTYP .EQ. CONSTN) GOTO § 

IF (LINTYP .EQ. SCONST) GOTO 

IF (LINTYP .€Q. MARKPT) GOTO 8 


0 
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0 
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0. 
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0, 
0, 
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0. 
0; 
0: 
0: 
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0: 
0. 
0: 
0. 
0. 
0, 
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159 IF (LINTYP .£Q. ORIGIN) GOTO 99 
160 IF (LINTYP .NE. LABELN) GOTO 100 
16¢ ¢ THIS IS A LABEL DEFINITION TO BE OUTPUT. THE FORMAT IS 
16 ¢ "SDEF (TAB) PRENAM\TAGNAM\FLDNAM 
164 «OC SDEF (TAB) PRENAM\KTAGNAM\FLDNAM® FOLLOWED BY THE REST OF THE 
165 ¢ INPUT LINE, WHERE KTAGNAM IS THE TAGNAM WITH THE SECOND 
166 C CHARACTER CHANGED TO A 'K', 
168 IF (DEBUG) TYPE 490 
169 490 loamared? LABEL OUTPUT") 
170 CALL PUTMAR (DOLDEF) 
171 CALL PUTMAR (PRENAM) 
7 CALL PUTMAR (TAGNAM) 
O17 CALL PUTMAR (FLDNAM) 
174 CALL OUTMAR 
0175 TAGNAM(3) = "K* 
0176 CALL PUTMAR (DOLDEF) 
017 CALL PUTMAR (PRENAM) 
0178 CALL PUTMAR (TAGNAM) 
1 CALL PUTMAR (FLDNAM) 
0180 CALL PUTMAR (TABSTG) 
0181 CALL PUTMAR (TABSTG) 
O18¢ INBUF (PTR) = INBUF (1) = PTR + 1 
01 CALL PUTMAR (INBUF (PTR)) 
0184 IF (DEBUG) TYPE 300, (MARBUF (1), I = 2, MARBUF (1) + 1) 
0185 300 FORMA * 90A1) 
0186 CALL SuUTRAR’ 
0187 RETURN 
0189 =si¢ THIS IS A FIELD DEFINITION TO BE OUTPUT. THE FORMAT IS 
0190 +=¢ "SDEF (TAB) PRENAM\TAGNAM\FLDNAM (TAB) .BLK\UNITYP® 
gigi C FOLLOWED BY THE REST OF THE LINE. 
O198 10 IF (DEBUG) TYPE 500 
19% 500 FORMAT (* FIELD OUTPUT") 
0195 CALL NUMSTG (BYTSIZ, OFSIZ) 
0196 IF (OS (1) .€0.°0) GOTO 11 
197 CALL PUTMAR (DOLDEF) 
0198 CALL PUTMAR (PRENAM) 
se FALL BUTRAN {SSeNNn 
0201 
88 C THIS IS JUST ALLOCATION OF SPACE, WITH NO ACCOMPANYING 
4 ¢ FIELD NAME. 
06 11 CALL PUTMAR (TABSTG) 
0 CALL PUTMAR (TABSTG) 
08 12 IF (.NOT. BLKOUT) GoTo 13 
CALL PUTMAR (DOTBLK 
10 CALL PUTMAR ( ary 
11 CALL PUTMAR (TABSTG) 
ig CALL PUTMAR (BYTSIZ) 
i ‘ 
16 ¢ THIS IS FOR NO BLOCK ALLOCATION 


SOOSOSOSOOOSOSOOSOOSOOSOOSOSOSOOSSOOSOGOSOSOSOOSOSOOOSOOSOSOSOSOOSOSOSSOSOSSSSSooSo 


o SOOOOSOOOOOOOOOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSSSSSSSS 


Page 117 


be 


RAN 
T 


VAX=11_ FORT Ys 36 
DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 


Be 01:37:58 


10 
1B-Sep-1 
-Sep-1 


CALL PUTMA 

CALL PUTMA 

CALL PUTMAR (SPCSTG) 
CALL_PUTMAR_(RST 

IF (DEBUG) TYPE 

CALL OUTMAR 


ADD SIZE CONSTANTS TO MACRO OUTPUT 
(MARBUF (1), I = 2, MARBUF (1) + 1) 
ADD SIZE CONSTANTS TO MACRO OUTPUT 
E OUTPUT. THE FORMAT IS 
~BLK\UNITYP" 


) 
0 (MARBUF (1), I = 2, MARBUF (1) + 1) 


3/8/82 


3/8/82 
end first code insertion 


begin first code insertion 
OTGNAM(3) = ISAVE 


CALL OUTMAR 
CONT INUE 


RETURN 
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CALL_PUTMA 
IF (DEBUG) “ee 


(MARBUF (1), I = 2, MARBUF (1) + 1) 
CALL OUTMA 


JIM TEAGUE 3/8/82 ADD SIZE CONSTANTS TO MACRO OUTPUT 
Begin second code insertion 


ten ¢ TG 
a i 
IF toeBuG) TYPE 
CALL OUTMAR 
fected” = ISAVE 
26 CONT INU 


(MARBUF (1), I = 2, MARBUF (1) + 1) 


" 
0 
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(ssz 
C 
3 JIM TEAGUE 3/8/82 ADD SIZE CONSTANTS TO MACRO OUTPUT 
3 end second (and last) code insertion 
(ses 
4 RETURN 

11 C THIS IS _ THE BEG! Ce ere JELD DEFINITION LIST. THE FORMAT IS 

\¢ C *(TAB) SVIELD ( NAM,0,<-" FOLLOWED BY THE 

HF C REST OF THE INE 

15 HS IF St ee ) TYPE 520 

1g 0 FORMAT (* B TFIEL LQ. QUTPU 

1 IF (TAGNAM(2).EQ. sf oth  DUTMAR (DOLVLD) 

18 IF (TAGNAM(2).€Q.° ") CALL PUTMAR (UNDVLD) 

1 CALL PUTMAR CBRENAR) 

0 CALL PUTMAR (COMMAS) 

4 CALL PUTMAR (ZRLAHY) 

§ CALL PUTMAR (SPCSTG) 

INBUF (PTR) = INBUF (1) = PTR + 1 

4 CALL PUTMAR ey (PTR)) 

5 if, Peave? TYPE 300, (MARBUF (1), I = 2, MARBUF (1) + 1) 

$ RETURN 

3 C THIS IS THE END OF A BITFIELD DEFINITION LIST TO BE 
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IS IS A. BEGINNING 
THE FORMAT IS ‘SEQULST 
FOLLOWED BY THE REST 0 


IF ta a TYPE 5 
Sag Be: CONSTANT ast OUTPUT") 


OF A STAN um +4, NITION LIST. 
ie a TAG, $GBL BASE, INCREMENT ,<-' 


CON 
»P 
THE LI 


er er ee ee ee ee ee ee ee ee 


“ 
Hn - PTR + 1 


CALL_PUTMAR ( NUP 

if (DEBUG) TYPE 00, PUMARBUF (1), I = 2, MARBUF (1) + 1) 
CALL _OUTMAR 

RETURN 

THIS IS THE Fo m4 A_CONSTANT DEFIN 
OU TI T TAB) 


PUT. THE F S *(TAB) (TAB 
THE LINE. 


NL TO BE 
OLLOWED BY THE REST OF 


F (DEBUG) TYPE 550 
ORMAT (* END CONSTANT LIST OUTPUT") 
ALL PUTMAR a aH G) 


PUTMAR (TABRAN) 
F (PTR) = INBUF (1) = PTR + 1 


L_PUTMAR Fly (PTR)) 
ag Ae 00, (MARBUF (1), I = 2, MARBUF (1) + 1) 


TION TO BE OUTPUT. THE FORMAT IS 
oM>-" FOLLOWED BY THE REST OF 


EBUG) TYPE 560 
(* ONE BITFIELD OUTPUT") 
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b-Fen-1984 Bye gs Pa ncOnS ten EOE 3S SRCINDLS2.FORS1° 
CALL PUTMAR (TABSTG) 
CALL PUTMAR (TABLAN) 
EAE Buta cama 
91 IF tvsiz .£Q. 0) GOTO 52 
% CALL NUMSTG tevtsiZ vS12) 
9 CALL PUTMAR (BYTSIZ5 
94 52 CALL PUTMAR (COMMAS) 
95 CALL PUTMAR (AMASK) 
96 CALL PUTMAR (RANHYP) 
9 CALL PUTMAR (SPCSTG) 
38 INBUF (PTR) = INBUF (1) = PTR + 1 
CALL PUTMAR CINBUF (PTR)) 
00 IF (DEBUG) TYPE 300, (MARBUF (1), J = 2, MARBUF (1) + 1) 
01 CALL OUTMAR 
$298 RETURN 
-_ ¢ THIS IS A CONSTANT NAME DEFINITION WITHIN A LIST. THE FORMAT 
0405 «OC 1S *(TAB) (TAB) <FLDNAM,VALUE>=" FOLLOWED BY THE REST 0 
0406 ¢ THE LINE. 
0408 60 IF (DEBUG) TYPE 570 
0409 570 FORMA LIST CONSTANT OUTPUT") 
0410 CALL PUTA (TABSTG) 
0411 IF ((CONEXP) .AND. (FLDNAM (1) .€Q. 0)) GOTO 61 
O412 CALL PUTMAR (TABLAN) 
041 GOTO 
0414 61 CALL PUTMAR (TABSTG) 
0415 62 IF (C(CONEXP) .AND. (FLDNAM (1) .€Q. 0)) CALL PUTMAR (TABSTG) 
0416 CALL PUTMAR (FLDNAM) 
041 IF (MVALUE (1) -EQ. ) GOTO 65 
0418 IF (FLDNAM (1) ) CALL PUTMAR (COMMAS) 
0419 IF (.NOT. CONEX xP) 60TO 
0420 IF (FLDNAM (1) .NE. 0) CALL PUTMAR (EXPOPN) 
0421 «63 CALL PUTMAR (MVALUE) 
04 : IF ((.NOT. ENDEXP) .AND. (CONEXP) GOTO 67 
04 IF (ENDEXP) CALL PUTMAR (EXPCLO) 
, @ CALL PUTMAR (RANHYP) 
ay CALL PUTMAR CSPCSTG) 
6 CALL PUTMAR ( STEIN) 
7 IF (DEBUG) TYPE 0, (MARBUF (1), I = 2, MARBUF (1) + 1) 
8 CALL OUTMAR 
9 RETURN 
£As | THIS IS A SINGLE CONSTANT DEFINITION TO BE OUTPUT. THE 
g ¢ FORMAT IS *$EQU (TAB) PRENAM\TAGNAM\FLDNAM (TAB) CVALUE* 
C FOLLOWED BY THE REST OF THE LINE. 
5 70 IF (DEBUG) TYPE 580 
580 FORMAT ‘ maSINGLE CONSTANT OUTPUT") 
CALL (EQUTAB) 
CALL CUTRAR (PRENAM) 
CALL PUTMAR (TAGNAM) 
40 PUTMAR (FLDNAM) 
41 CALL PUTMAR (TABSTG) 
4@ CALL PUTMAR (MVALUE) 
4 CALL PUTMAR (TABSTG) 
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CALL PUTMAR (TABSTG) 
INBUF (PTR) t ee sH] - PTR + 1 


Fatt PUTMAR Nero TR)) 
IF (DEBUG) TYPE 00s (MARBUF (1), I = 2, MARBUF (1) + 1) 
RETURN 


THIS IS A POSITION MARKING DECLARATION. ONLY THE COMMENT 
OF THE LINE IS OUTPUT. 


IF DEBUG) TYPE 600 
POSITION MARK OUTPUT") 
CALL PUTMAR (TABS? 
CALL PUTMAR (TABSTG) 
CALL _PUTMAR (TABSTG) 
INBUF (PTR) = INBUF (1) = PIR + 1 
CALL PUTMAR CINBUF (PTR) 
IF (OEBUG) TYPE 300, (MARBUF (1), I = 2, MARBUF (1) + 1) 


THIS IS vlan ir ta se THE POINTER IS RESET BY 
A_DECLARA Uy Ae, HE FORM '. = (V/LUE)* FOLLOWED BY THE 


REST OF THE LINE. 
IF (DEBUG) TYPE 610 
FORMAT (* REORIGIN OUTPUT") 
CALL PUTMAR (TABSTG) 

L PUTMAR (DOTEQS) 
CALL NUMSTG (OFFSET, BLFOFS) 
CALL PUTMAR (OFFSETS 

LL PUTMAR (SPCSTG) 
INBUF (PTR) = INBUF (1) = PTR + 1 
PUTMAR 7 (iNeUE (PTR) ) 

IF (DEBUG) TYPE 300, (MARBUF (1), I = 2, MARBUF (1) + 1) 

bo 


ERROR REPORTING 


TYPE 2000 
FORMAT (* INVALID OUTPUT LINE TYPE") 
RETURN 
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PROGRAM SECTIONS 
Name 


ate 
9 
$3 
Sat 
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LOCAL 


NOONE WN Oo 
Su ysa4onm 
Ue >t Ethioce 


be 


Total Space Allocated 


ENTRY POINTS 
Address Type 


0-00000000 
VARIABLES 
Address Type 
4-00000006 I*4 
12-00000002 > 
I* 
I* 
I* 
I* 
I* 
Ie 
I* 
1*4 
L* 
L* 
Le 
Le 
I* 
ARRAYS 
Address Type 
6-000000DA I* 
paws sis bb It 
-0000051E I* 


Name 
MDOUTL 


Name 
BINVAL 
8 


AMASK 
ASIGN 
BLBASE 


1$-S00-19 4 91:32:63 VAX-11 FORTRAN 


-Sep-1984 01: 
Bytes Attributes 
3 +9 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 PIC CON REL LCL SHR NOEXE kD NOWRT LONG 
44 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Hi PIC OVR REL GB SHR NOEXE RD WRT LONG 
586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 PIC OVR REL GB SHR NOEXE RD WRT LONG 
3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
219 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7595 
Address Type Name Address Type Name 
11-00000000 I*2 BLANK 9-0000021 I*2 BLBITS 
1d-o9p008¢ I*2 BLIPTR 5-00000 13 L*2 ®B8LKOUT 
a0 44445 3 I* INCR 4-00000004 I*2 COL 
2 0000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 
3 . L*2 ERROR Paes 44i 3 L*2 ERROUT 
9- I*2 FSIGN 9- Be 0B4 I*2 FSIZ 
19°3 AS I*2 INPLIN 10-00 Bae I*2 INPTR 
9- bp 16 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 
4 14 I*2 LSBSIZ 12-00000004 I*2 MAR 
9- $f I*2 MNGCNT -0000 ° 2 I*2 NBYTES 
9- 4 I*2 OBBITS -00 E I*2 OFSIZ 
AP- Bee I*2 PTR 5- 88 L*2 SMASK 
¢- 6 L*2 STROK 11- I*2 TAB 
- 1A L*2 TMPOUT 9-000000 Ite TOKTYP 
-000000B2 I*2 UNISIZ 5-Q0000000A L*2 VMASK 
Bytes Dimensions 
4 ) 
4 (2) 
162 1) 


tet be 
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Address Type Name 


9-00000332 I*2 BLFOFS 
4 54 9 It 


e2 TTY 
I*2 VOFSET 


9 7A 


sume 
Ses 
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1*2 RANHYP § (3) 

I*2 RSTLIN 180 (90) 

I*2 SEMSPC 6 (3) 

I*2 SPCSTG 4 (2) 

I*2 SPHYSP (4) 

I*2 STRSTG 32 (16) 

I*2 SUFDEF (4) 

I*2 SUFNAM 32 (16) 

I*2 TABEQS (4) 

I*2 TABLAN 6 ty 

I*2 TABOPR 8 (3) 

I*2 TABPRN 1 (3) 

I*2 TABRAN 6 (3) 

I*2 TABSTG 4 (2) 

I*2 TAGNAM $ (16) 

I*2 TMPVAL 162 (81) 

I*2 TOKSTG 80 (40) 

I*2 UNDVLD 18 (9) 

I*2 UNITYP 4 (2) 

I*2 ZEROSG 4 (2) 

I*2 ZRLAHY 10 (5) 

LABELS 
Address Label Address’ Label Address Label Address’ Label Address Label Address Label 

0-0000018E 10 0-000001D8 11 0-O000001E8 12 0-00000212 13 0-00000222 15 0-00000317 16 
0-00000318 20 0-0000038E 23 0-0000039E 25 O-Q0000049F 26 0-000004A0 30 0-00000575 35 
0-00000619 40 0-00000706 45 0-000007A2 50 0-000007FC 26 bop OCOoRS $8 8 44 tg 61 
0-000008DE 62 0-00000922 63 0-00000943 65 0-0000094C 6 - 4 4 0 OOOOA6F 80 
0-00000812 90 0-000008C8 100 1-00000000 4 44 64 05 300° 1-00000012 490° 1-0000002A 500° 
1-0000003A 510° 1-0000004D 520' 1-00000060 530' 1-00000074 540° 1-0000008C 550° 1-000000A8 560° 
1-000000BF 570° 1-000000D7 580° 1-000000F1 600° 1-00000109 610' 1-0000011C 2000° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
NUMSTG OUTMAR PUTMAR 
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IF (DEBUG) TYPE 250. (BLIBUF (1), I = 2, BLIBUF (1) + 1) 


CALL OUTBLI 
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BDOUTL $ep-1984 01:57:23 VAX=-11 FORTRAN e 131 
ig S00 1984 94535383 DISKSVMSMASTER: Habt33° SRCIMDL32.FOR; 1 fa9 

4 CALL PUTBLI(TABSTG) ( 

45 CALL EXCCMT(RSTLIN,1) 0 
0446 CALL TBLICRSTUINS 0 

4 IF (DEBUG) TYPE 250, (BLIBUF(I), I = 2,BLIBUF(1)+1) 0 
0448 CALL OUTBLI 0 
Q449 RETURN 6 
bees 67 CALL PUTBLI(TABSTG) 0 
04 : GOTO 6 0 
bea 6 
04 5 (CC THIS 1S A SINGLE CONSTANT DEFINITION TO BE OUT 9 

5% C«~ THE FORMAT IS "LITERAL (TAB) (TAB) = (SPACE)' FOLLOWED 
0457 ¢ BY THE VALUE OF THE CONSTANT, THEN '; (SPACE) 0 
0498 ¢ THE REST OF THE LINE. 0 
0460 70 IF (DEBUG) TYPE 600 0 
0461 600 FORMAT (' SINGLE CONSTANT OUTPUT") 0 
O46¢ CALL PUTBLI (LI 0 
046 CALL PUTBLI (bhEN AnD 0 
0464 CALL PUTBLI (TAGNAM) 0 
0465 CALL PUTBLI (FLDNAM) 0 
0466 CALL PUTBLI (TABEQS) 0 
0467 CALL PUTBLI (BVALUE) 0 
0468 CALL PUTBLI (SEMSPC) 0 
0469 CALL PUTBLI (TABSTG) 0 
0470 CALL PUTBLI (TABSTG) 0 
0471 CALL EXCCMT CINBUF , BTR? 0 
047¢ L PUTBLI (INBUF (PTR)) 0 
047 rt ToEBUG) TYPE 0: (BLIBUF (1), I = 2, BLIBUF (1) + 1) 0 
0474 CALL OUTBLI 0 
si ae 
p75 C THIS IS A POSITION MARKING DECLARATION. ONLY THE COMMENT 0 
0478 ¢ PORTION OF THE LINE IS OUTPUT. 0 
0480 80 IF (DEBUG) TYPE 610 
0481 610 FORMAT (* POSITION MARK OUTPUT’) 
048¢ CALL PuTBLt (TABSTG) 

8 CALL PUTBLI (TABSTG) 
0484 LL PUTBLI (TABSTG) 
0485 CALL EXCCMT (INBUF, PTR) 

86 CALL PUTBLI CINBUE (PTR) ) 

4 IF (DEBUG) TYPE 250, (BLIBUF (1), I = 2, BLIBUF (1) + 1) 

CALL OUTBLI 

o:39 RETURN 

91 «OC THIS IS REORIGINING COMMAND. ONLY THE COMMENT PORTION OF 

9 ¢ THE LINE IS OUTPUT. 

9% 90 IF (DEBUG) TYPE 620 

95 620 boRMAre ds REORIGIN OUTPUT") 

% CALL PUTBLI (TABSTG) 

9 CALL PUTBLI (TABSTG) 

98 PUTBLI (TABSTG) 

99 CALL EXCCMT (iNBUF, PTR) 

500 L PUTSLI (INBUF’ (PTR)) 


if} opx138C 01:59:58 DISkSUMSRASTER: FHOL3S SRCIMDLSZ.FORST°m 


Be i Peis 250, (BLIBUF (1), I = 2, BLIBUF (1) + 1) 
g Ret 

08 C ERROR REPORTING 

0 100 TYPE 2000 

508 2000 FORMAT (* INVALID OUTPUT LINE TYPE") 

09 RETURN 


3% END 


"1 
BDOUTL Ibege “1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 133 
Or188s BT :8515e | Na KSvMS RASTER: FADES> SRCIMDL32.FORS1 om 


-Sep-1 
PROGRAM SECTIONS 
Name Bytes Attributes 
9 SCODE 347 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 3 PIC CON REL LCL SHR NOEX RD NOWRT LONG 
j SLOCAL 3 PIC CON REL LCL NOSHR NOEX RD WRT LONG 
TEXT 4 PIC OVR REL GBL SHR NOEX RD WRT LONG 
4 VARS 15 PIC OVR REL GBL SHR NOEX RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 8121 
ENTRY POINTS 
Address Type Name 
0-00000000 BOCUTL 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000 \s I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
16C I*2 CBASE 9- 4 4b I*2 CINCR 4-00000004 I* OL 5-00000016 L*2 CONEXP 
I DEBUG 3 00 BS L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
RR - 02 L*2 ERROR 3-008 OOE L*2 ERROUT 3 teh oh L*2 FLDLAS 
FOF SET 9- : I*2 FSIGN 9-000000B4 I*2 FSIZ -0000 ade I*2 | 
P 10- 3 AS I*2 INPLIN a 44494 Eo I*2 INPTR 4444 1€ I*2 LASLIN 
LFDSIZ 4- OA I*2 LINELEN 9-00 4 I*2 LINTYP - 0000000 I*2 LOCAL 
PTR 9- 0214 I*2 LSBSIZ _* 8 0004 I* R 1 ms 44 9 43 I*2 MARPTR 
$ 9- —E I*2 MNGCNT -00000 I*2 NEGCNT 4-00 st I*4 NUM 
OBBITS 3 0 E I*2 OFSIZ 9-000 I*2 OUNSIZ -00000018 L*2 POSOFF 
TR - ; 3 L*2 SMASK - O85 1 I*2 SOFSET - : 8 Boe L*2 STGEQL 
STROK 11- I*2 TAB 12-00 8 6 I* MP - Le2 TMPI 
T 000 I*2 TOKTYP 12-Q000000A I*2 TTY -0000 008 L*2 UNDOK 
UNISIZ -0000000A L* MAS -00000124 I*2 VOFSET 9-000001 I*2 VSIZ 
ARRAYS 
Address Type Name Bytes Dimensions 
6 A I*2 AMASK 4 (2) 
S-00000S1E Ie BLBASE 163 (81) 
1 19C I*2 BLIBUF 86 (120) 
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-Sep-1984 57:26 DISKSVMSMASTER: tmbL33 SRCIMDL32.FOR; 1 
SUBROUTINE OUTFLD 


¢ OUTPUTS A FIELD OR SUBFIELD DEFINITION. IF THE IMPLICIT ARGUMENT 
¢ BLKOUT IS TRUE, OUTPUTS A '.BLK' ALLOCATION TO THE MARS FILE. 
C OTHERWISE, ouTbUTS THE FIELD bI THOU T THE ALLOCATION. 
INCLUDE "SRC$:MDL32CMN.CMN/NOLIST* 
IF (DEBUG) TYPE 490 
490 FORMAT (' IN OUTFLD') 
CALL MDOUTL (INPTR) 
CALL BDOUTL CINPT 
IF (LINTYP .NE. si FoF OTO 10 
IF (DEBUG) TYPE 5 FOFSET QUNSIZ, OFSIZ, BL LEOF S 
500 FORMAT (° FOFSET ' UNSIZ ',13." OFSIZ ',13," BLFOFS °,13) 
BOFSET = FOFSET 
FOFSET = FORSET + OUNSIZ * OFSIZ 
OSBNAM (1) = 
LASLIN = FIELD 
RETURN 
10 IF (LINTYP .NE. SBFLD) GOTO 20 
IF (DEBUG) TYPE 510, FOFSET, SOFSET, LSBSIZ, BLFOFS 
510 FORMAT (* FOFSET ',13,' SOFSET ',13." LSBSIZ ',13,° BLFOFS ',13) 
SOFSET = SOFSET + ($agiz° 
LASLIN = SBFLD 
OSBNAM (1) = 0 


20 RETURN 
END 


N11 
OUTFLD 16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 137 
eet 1 8:25:83 PE EKSUMSHASTEN :ERDL 3S” SRCIMDL32. FOR: 1 ’ 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE e PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
\} SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
14 LUNS 14 PIC OVR REL GBL HR NOEXE RD WRT LONG 
“Total Space Allocated 4289 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTFLD 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000 \g I*2 BLBITS 9-.0000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-0000001 ss BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE an 9'4'4 3 I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12 8 It RR 5-00000002 L*2 ERROR 5-Q000000E L*2 ERROUT 5-00000010 L*2 FLDLAS 
9-000001 ‘ I*2 FOFSET 9-000000B6 I*2 FSIGN 44 268 I*2 FSIZ uF 44 44's 9 I*2 INP 
10-000000A8 I*2 INPLIN 10- OA6 I*2 INPTR 9-0000 \f I*2 LASLIN -00000216 I*2 LFDSIZ 
pa 4's 499 I*2 LINELEN 9 199 I*2 LINTYP 44 18 I*2 LPTR 8-85 080 14 I*2 LSBSIZ 
Ie R 10- 19A I*2 MARPTR \¢- 0000 of I*2 MAS 9-0000086E I* GC 
-0000086C I*2 NEGCNT 4-000 3 %° I*4 NUM - 444 4 I*2 OBBITS 8 pn Nght f I* FSIZ 
9-00000330 I* NSI 2 0000018 L*2 POSOFF 5-0000000C L*2 SMAS 9-000001 I*2 SOFSET 
~Ponnnve L*2 STGEQL - 44h 98 L*2 STROK 11- 6° 008 I*2 TAB 15-8008 88 6 I* MP 
1c Lt MPIN 5- A L*2 TMPOUT 9- I*2 TOKTYP 12-00 A I*2 TTY 
-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 
9-00000128 I* $12 
ARRAYS 
Address Type Name Bytes Dimensions 
6- DA I*2 AMASK 4 (2) 
SSOGGBRRE 3 AMER 
9-0000051E I*2 BLBASE 166 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
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Label 


Address 
1-0000003D 510° 


Label 


Address 
1-0000000D 500° 


Label 


Address 
1-00000000 490° 


Label 
20 
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10 
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1g- Seo-1984 1:57: o:g3 VAX-11 FORTRAN V3.4-56 Page 140 
“Sep-19 1:57:26 DISKSVMSMASTER: CMDL32. SRCIMDL32.FOR; 1 


SUBROUTINE OUTBCL 


OUTPUTS A SINGLE LINE IN A CONSTANT Phe nua LIST. THE 
LINE IS BLANK OR HAS ONLY COMMENTS. FOR MARS, IT MUST BEGIN 
WITH A HYPHEN, FOR BLISS IT CAN GO OUT as IS. 


INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' 

CALL Las Me ae 

CALL P R_CINBUF (1)) 

if F (DEBUG) rSOntS OO, (MARBUF (I), I = 2, MARBUF (1) + 1) 
CALL OUTMAR 

NOW OUTPUT THE BLISS LINE 

CALL EXCCMT (CINBUF, 1) 

CALL PUTBLI_ (INBUF (1)) 

if (DEBUG) TYPE 500, (BLIBUF (1), I = 2, BLIBUF (1) + 1) 
CALL OUTBLI 


RETURN 
END 
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OUTBCL Ig-Se 1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 141 
~3007} Re 94:25:82 DISKSVMSMASTER: CHOL 32° SRCIMDL32.FOR: 1 ’ 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LON 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LON 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 5 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4151 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTBCL 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 19-B000e8¢ I*2 BLIPTR 2750000013 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-Q000016E I* INCR 4-00000004 I* OL 5-00000016 L*2 CONEXP 
Be sisi'a'o4 I*2 DEBUG 5- B60 14 L*2 ENDEXP 5-00000000 L*2 ENDFIL 1-00000004 I*2 EOLCH 
12-00000008 I*2 ERR 5- 02 L*2 ERROR 5-QO000000E L*2 ERROUT -00000010 L*2 FLDLAS 
ge sis AEE: I*2 FOFSET 9-000 $ I*2 FSIGN 9- 4h be I*2 FSIZ §- Bepnete I*2 | 
12 I*2 INP 10-00 AS I*2 INPLIN 10- 88 A6 I*2  INPT -00 4 if I*2 LASLIN 
9-00000216 I*2 LFDSIZ 4- . I*2 LINELEN 8-086 1g0 I*2 LINTYP 9- 36 3 18 I*2 LPTR 
9-00000214 I*2 LSBSIZ .* 4 I* |AR 10-Q0000019A I*2 MARPTR 1$-8 OO0O000C I*2 MAS 
— I*2 MNGCNT - 3 $6 I*2 NEGCNT 4- et I*4 NUM ~8588 4 I*2 OBBITS 
9-00000 3 I*2 OFSIZ 9- I*2 OUNSIZ -00 18 L*2 POSOFF 5-0 0 L*2 SMASK 
1 I*2 SOFSET 2 8 Bete L*2 STGEQL - § Bee L* TROK 338 4 3 I*2 TAB 
1 I*2 TMP - C L*2 TMPIN - A L*2 TMPOUT 9- I*2 TOKTYP 
1 A I*2 TTY 5- 3 Oto L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-Q000000A L*2 VMASK 
9-00000124 I*2 VOFSET 9-000001 I*2 VSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 
$-00000516 [+3 BLBASE 163 (81) 
10 19C I*2 BLIBUF 225 (120) 
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OUTBCL 1B-5e 1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 143 
~Sep-19 4 81:87:58 DISKSVMSMASTER: EMOL 32. SRCJMDL32. FOR; 1 : 
I*2 RSTLIN 180 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 32 (16) 
I*2 SUFDEF (4) 
I*2 SUFNAM 32 (16) 
I*2 TABEQS (4) 
I*2 TABLAN 6 (3 
I*2 TABOPR 8 (3) 
I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 
I*2 JABSTG 4 (2) 
I*2 TAGNAM 35 (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG ° (40) 
I*2 UNDVLD 18 (9) 
*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 


LABELS 
Address Label 
1-00000004 500° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
EXCCMT OUTBLI OUTMAR PUTBLI PUTMAR 
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16-Sep-1984 01:57:23 VAX=11 FORTRAN ' 144 
Hoe 81:35:58 DISKSVMSMASTER: Rs YmBLSS SRCIMDL32.FOR; 1 te4: 


REVISION HISTORY 
25-85-97 


AON 


cP IF TMP FILE FLAG IS TRUE, OUTPUT 
COUNT AS NEGATIVE ALLOCATION. 


SUBROUTINE OUTBLK (COUNT) 

OUTPUTS A DECLARATION OF BLOCK ALLOCATION TO THE 
TRANSLATED MARS FILE. THE ARGUMENT COUNT IS THE NUMBER 
OF BYTES TO ALLOCATE. 

INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 

INTEGER COUNT, LOCAL 


IF (DEBUG) AlvPe 4300 
500 FORMAT Colt Loc TING couyt * BLOCKS") 


IF (COUNT .NE. “OUN NSiZ-® LOCAL) GOTO 20 
CALL STG (BYTSIZ, LOCAL) 


0 
20 CALL vp a) = Wires COUNT) 
25 CALL PUTMAR cTABSTS) 


Oona 


TABSTG) 
IF (TMPOUT) CALL PUTMAR (NEGSGN) 
CALL PUTMAR (BYTSIZ) 


CALL_PUTMAR e816 
bon mage ds + SOntS 10, (MARBUF (1), I = 2, MARBUF (1) + 1) 


CALL OUTMAR 
bees t. ~ whe TMPOUT) BLFOFS = BLFOFS + COUNT 
END” 


510 
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Re eee BF ikbSs Pe ERR TRAN Yes t35° sacampi32.roR:1°%* 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 276 «=6©PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 4 PIC CON REL LCL HR NOEXE RD NOWRT LONG 
§ SLOCAL 6 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
& VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE e1¢ PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4285 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTBLK 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
Pia sist 4 I*4 BINVAL 11-00000000 I*2 BLAN 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 19-09909¢8¢ I*2 BLIPTR 3750980813 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE -000 BAS I*2 CINC 4-00000004 I*2 COL 5- 4 64 93 L*2 CONEXP 
AP-00000004@ I*2 COUNT -0000 . I*2 DEBUG ress 4 db L*2 ENDEXP 5-00000000 L*2 ENDFIL 
11-00000004 I*2 EOLCH 12-000 I*2 ER 5- 4 4 oh L*2 ERROR 5-QO00000E L*2 ERROU 
-00000010 L*2 FLDLAS 000001 I*2 FOFSET 9-00 Oboes I*2 FSIGN 9-000000B4 I*2 FSIZ 
Pop RON I*e2 ] .* 0 I*2 INP 10- 36 AS I*2 INPLIN = 38 one I*2 INPTR 
1C I*2 LASLIN - 13 I*2 LFDSIZ 4- OA I*2 LINELEN - 1 I*2 LINTYP 
=00000000 I*2 LOCAL - 1 I*2 LPTR 9-00000214 I*2 LSBSIZ - 000004 I*2 MAR 
1 19A I*2 MARPTR l2- of I*2 MAS 9- —E I*2 MNGCNT - 0 f I*2 NEGCNT 
& 1*4 NUM - I*2 OBBITS 9- 3 I*2 OFSIZ 9- 0 I*2 OUNSI 
18 L*2 POSOFF 3 L*2 SMASK 9- 8 1 I*2 SOFSET - 5 8 4 L*2 STGEQL 
L*2 STROK 11- I*2 TAB \s- 006 I*2 TMP - L*2 TMPIN 
1A L*2 TMPOUT 9-00 I*2 TOKTYP 12-00 138 I*2 TTY -00 00008 L*2 UNDOK 
2 I*2 UNISIZ 5-0000000A L* MAS 9-00000124 I*2 VOFSET 9-000001 I*2 VSIZ 
ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 
CRS 3 Sie, ih 
1 19C I*2 BLIBUF 225 (120) 
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OUTBLK 16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 147 
Boones Oy iabiss Wa COR ERAN F35 033 “sacampLsz.rors1em* 


I*2 RSTLIN 180 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 32 (16) 
I*2 SUFDEF (4) 
I*2 SUFNAM 32 (16) 
I*2 TABEQS (4) 
I*2 TABLAN 6 (3) 
I*2 TABOPR 8 (3) 
I*2 TABPRN 1 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
I*2 TAGNAM 3§ (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
#2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address’ Label Address’ Label Address’ Label 
0-00000054 20 0-0000006A 25 1-00000000 500° 1-0000001A 510° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
NUMS TG OUTMAR PUTMAR 


1 


REVISION HISTORY: 
25-53-77 


U 


T 
0 


bs 


Sep-1984 
Sep-1984 


TING TO TMP FILE 
F OUTMAR AND OUTBLI 


LINE IN THE MARS 


IF OUTPUTTING TO THE TMP FILE, JUST OUTPUT THE LINE ONCE. 


0001 + 
900¢ C cP IF 
¢ IN 

$008 SUBROUTINE OUT2LN 
0007 ¢ THIS ROUTINE SIMPLY OUTPUTS A SINGLE LINE TO BOTH OUTPUT 
0008 = sé FILES. T HE unl 1S IDENTICAL TO THE INPUT 
0009 s«¢ FILE, AND HAS SEMI-COLONS CHANGED TO EXCLAMATION POINTS 
0010 «s«¢ IN THE BLISS FILE. 
0011 «—¢ 
901¢ C 
001 
9014 INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' 
O119 INTEGER 1 
0118 
g119 C OUTPUT THE MARS LINE. 
8155 IF (TMPOUT) GOTO 20 
O1g¢ CALL PUTMAR (INBUF) 
O12 CALL OUTMAR 
0124 IF (.NOT. ERROUT) GOTO 10 
0125 RETURN 
0126 | 
01g? C NG@ THE BLISS LINE. 
0128 
0129 10 I=1 
0130 CALL EXCCMT (INBUF, 1) 
0131 CALL PUTBLI (INBUF) 

132 CALL OUTBLI 
0133 RETU 
0134 
0135 = 20 CALL TMPWRT 
0136 RETURN 
0137 
0138 END 


01:37:86 


~~ TMPWRT 
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3 $ 3 ; 35: 6 DISKSVMSMASTER: CMDL 32. SRCIMDL32.FOR;1 7. 


PROGRAM SECTIONS 4 
Name Bytes Attributes 4 
E 75 PIC CON REL LCL SHR EXE RD NOWRT LONG 0 
SLOCAL ¢ PIC CON REL LCL NOSHR NOEXE WRT LONG 0 
xT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
4 VARS 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
SL ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG Q 
MORSTG PIC OVR REL GBL SHR NOEXE RD WRT LONG Q 
3 CHECKS PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG Q 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 0 
12 LUNS 14. PIC OVR REL GBL SHR NOEXE RD WRT LONG 4 
Total Space Allocated 3998 8 
0 
ENTRY POINTS 4 
Address Type Name 8 
0-00000000 OUT2LN 9 
0 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
BINVAL 11-00000000 I*2 BLAN 9-00000212 I*2 BLBITS 9-00000332 1*2 BLFOFS 
BLI 10- 0000¢ C I*2 BLIPTR atte L*2 BLKOUT 9-0000012A I*2 BOFSET 
CBASE 9- 00 O16 I*2 CINC $-00000 4 I*2 COL 3-00000016 L*2 CONEXP 
DEBUG 3° 00 014 Led ENDEXP 5-00000000 L*2 ENDFIL 11-0000 004 I*2 EOLC 
RR - 0 9002 L*2 ERRO 3-00000 —& L*2 ERROUT 5-00000010 L*2 FLDLAS 
FOF SET 93-0000 086 I*2 FSIGN 9-000000B4 I*2 FSIZ 2-000 9900 I*2 | 
NP 10- 999 AS #2 INPLI 10-0000 OA6 I*2 INPT 9-00000 1¢ I*2 LASLIN 
LFDSIZ 4-0000000A I*2 LINELEN 9-0000 iF I*2 LINTYP 9-00000218 I*2 LPTR 
LSBSI1Z Fi 990 04 I*2 MAR 10-0000 19A I*2 MARPTR Ig- 90 0 o¢ I*2 MAS 
MNGC -00000 6¢ I*2 NEGCN 4-000 909 1*4 NUM -00000334 I*2 OBBITS 
OF SIZ 9-00 I*2 OUNSIZ 3° 999 91 L*2 POSOFF 3-000 900 L*2 SMASK 
SOF SET - 04 L*2 STGEQL -00000006 L*2 STROK 1i- 00 0 I*2 TAB 
TMP - 0 iC Le2 TMPI 00000014 L*2 TMPOUT 2-00 900 1*2 TOKTYP 
TTY - 08 L*2 UNDOK 9-000000B2 I[*2 UNISIZ 5-0000000A L*2 VMASK 
VOF SET 9-00000128 I*2 vSI2 
ARRAYS 
Address Type Name Bytes Dimensions 
6 A Ie a 4 (2) 
96 I*2 ASI 4 (2) 
irae 3 RARE us the, 
9 § I*2 BLINCR % £399 
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OUT2LN 

6- 154 I*2 SEMSPC 
6-QOOQ00FE I*2 SPCSTG 
g- OOO1A8 I*2 SPHYSP 

» 092 I*2 STRSTG 
6-00000072 I*2 SUFDEF 
9-00000072 I*2 SUFNAM 
SSE 3 TER 
6-000001CA I*2 TABOPR 
6-000001CO I*2 TABPRN 
passe ety I*2 TABRAN 


6-000000A2 I*2 ZRLAHY 


LABELS 
Address’ Label Address 
0-00000028 10 0-00000043 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
EXCCMT OUTBLI 
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SOF FWOMNS HOSA OMNIA LO 
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Type Name Type Name Type Name Type Name 
OUTMAR PUTBLI PUTMAR TMPWRT 
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16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 P 152 Ol 
b-Sen-1984 8:25:82 DISKSVMSMASTER: (MOL 32, SRCIMDL32.FOR: 1° 9° 
REVISION HISTORY: 
2823505} 


cP OUTPUT SUFNAM INSTEAD OF SUFDEF. 
19-01-78 TC OUTPUT SUFNAM AS A FINAL ARGUMENT 
TO DEFEND. 
18-02-80 TIM HALVORSEN 


OUTPUT $ ON FRONT OF MACRO NAME 
ONLY IF SYSTEM STRUCTURE ($STRUCT) 


SUBROUTINE OUTSTE 


FORMATS AND OUTPUTS THE END MACRO DEFIN 
STRUCTURE TO MARS. THEN FORMATS AND OUT 
THE COMMENTS FROM THE LINE TO BLISS. 


INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 


IF (DEBUG) TYPE 400 
FORMAT (' IN QUTSTE') 

MARBUF (1) = 

CALL OUTMAR 

IF (.NOT. ERROUT) GOTO 5 ui 
RETURN 


“wo 


NS FOR A 
ONLY 


CALL PUTMAR (DEFEND) 
IF (DEBUG) TYPE 410, (DEFEND (1), I = 2, DEFEND (1) + 1) 
FORMAT (* *,90A1) 


CALL PUTMAR (PRENAM) 
CALL PUTMAR (DOLGBL) Fl 
CALL MAR (COMMAS) 

CAL R_(SUFNAM) 

INBUF CINPTR) = INBUF (1) = INPTR + 1 

CALL PUTMAR (INBUF (CINPTR)) 

IF (DEBUG) TYPE 410, (MARBUF (1), I = 2, MARBUF (1) + 1) 

CALL OUTMAR 

IF (.NOT. ERROUT) GOTO 10 

RETURN 

MARBUF (1) = 1 


CALL OUTMAR 
IF (.NOT. ERROUT) GOTO 20 
RETURN 


CALL _PUTMAR (ENDMAC) 
IF (DEBUG) TYPE 410, ( 
IF (TAGNAM (2) .EQ. ‘S$ 
CALL PUTMAR (PRENAM) 
CALL PUTMAR_ (SUFNAM) 

IF (DEBUG) TYPE 410, (MARBUF (1), I = 2, MARBUF (1) + 1) 
CALL OUTMAR 

If (.NOT. ERROUT) GOTO 30 

RETURN 

oat EXCCMT (INBUF, INPTR) 


CALL PUTBLI (INBUF (INPTR)) 
CALL OUTBLI 


ENDMAC (1), I = 2, ENDMAC (1) + 1) 
*) CALL PUTMAR (DOLLAR) 


i 
———— 


RETURN 
END 
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FORTRAN V3.4 
MSMASTER: 


4-56 
MDL32.SRCIMDL32.FOR; 1 


Name Bytes Attributes 
0 SCODE 294 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
g SLOCAL 39 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 1s PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4297 
ENTRY POINTS 
Address Type Name 
0-00000000 OUTSTE 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
Pia sis 4 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028¢ I*2 BLIPTR 3750000013 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE pans 5b | I*2 CINCR 4-00000004 I* OL ram's 44 4 Dh L*2 CONEXP 
mss ai I*2 DEBUG 2 0000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 1380888 04 I* OLCH 
12 It RR - sit 308 L*2 ERROR rae sss L*2 ERROU 5-0 4 10 L*2 FLDLAS 
9-00000122 I*2 FOFSET 9-000 $ I*2 FSIGN 8-986 Bae I*2 FSIZ $80 0000 I*2 I 
iF sisi 4 94 It NP 10-000000A8 I*2 INPLIN 10- ; OO00A6 I*2 INPTR -0000 \f I*2 LASLIN 
16 I*2 LFDSI 378 OQOO0A I*2 LINELEN 9-0 SE I*2 LINTYP 9-00000218 I*2 LPTR 
9-00000214 I*2 LSBSI . 38 04 I*2 MAR bans A I*2 MARPTR 12-0000 of I*2 MAS 
It GCNT -0000 3 I*2 NEGCNT 4-0000 $08 I*4 NUM 9-00000334 I*2 OBBITS 
saeooores 1:3 Sorter Sepgsasooe ce Sica «= $R0Naauee tte etase’ = cSuaaaags 3 FAS 
12-00000006 [eS Tae 5 Boole Led THPIN “20000010 ted THPOUT $-0000003 195 TORTYP 
12-O000000A I*2 TTY -0000 008 L*2 UNDOK 9-000000B2 I* ISI 5-OGQ00000A L*2 VMASK 
9-00000124 I*2 VOFSET 9-000001 I*2 VSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 
6 A I*2 AMASK 4 (2) 
8 196 I*2 ASIGN 4 (2) 
S1E I*2 BLBASE 166 (81) 
1 19C I*2 BLIBUF 240 (120) 
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OUTSTE Ig-Se -1 1:57:23 VAX-11 FORTRAN V3.4-56 Page 156 
=300 71382 9:25:83 DISK VMSRASTEN: Fab 3>° SRCIMDL32.FOR:1 ° 
RSTLIN 180 (90) 
SEMSPC 6 (3) 
SPCSTG 4 (2) 
SPHYSP (4) 
STRSTG 3 (16) 
SUF DEF (4) 
SUF NAM 3 (16) 
TABEQS (4) 
TABLAN (3) 
TABOPR (3) 
TABPRN 1 (5) 
TABRAN ? (3) 
TABSTG (2) 
TA 3 (16) 
TMPVAL 16 (81) 
TOKSTG 80 (40) 
UNDVLD 1 (9) 
ITyP 4 (2) 
ZEROSG 4 (2) 
ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
0-00000025 5 0-00000079 10 0-0000008E 20 0-00000103 30 ee 400° 1-00000000 410° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
EXCCMT OUTBLI OUTMAR PUTBLI PUTMAR 
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0! 
) 
0 
) 
) 
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01 
01 
01 
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0 
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om 


0001 C REVISION WIsTORy: 0 

0098 ¢ 23-03-77 cP OUTPUT SUFNAM INSTEAD OF SUFDEF. 8 
C 18-02-80 TIM HALVORSEN 0 

0005s ¢ OUTPUT $ ON FRONT OF MACRO NAME 0 
9006 C ONLY IF SYSTEM STRUCTURE ($STRUCT) Q 
000 0 
po08 SUBROUTINE OUTSTR 8 
0010 C FORMATS THE MACRO DEFINITION OF A DATA STRUCTURE AND 0 
0011 C OUTPUTS IT TO THE MARS FILE. FORMATS AND OUTPUTS THE COMMENT 0 
0018 C PART OF THE LINE TO THE BLISS FILE. 8 
9014 INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' 8 
O11? C FIRST OUTPUT THREE LINES FOR MARS 8 
0119 C IF (DEBUG) TYPE 400 Q 
0120 400 FORMAT (* IN OUTSTR') 0 
0121 CALL PUTMAR (DOTMAC) 0 
01 ¢ IF (TAGNAM (2) .£Q. °$') CALL PUTMAR (DOLLAR) 0 
01 C IF (DEBUG) TYPE F%5. (DOTMAC (1), I = 2, DOTMAC (1) + 1) 0 
0124 INPTR = INPTR + 1 0 
0125 410 FORMAT (* *,30A1) 0 
0126 CALL PUTMAR (PRENAM) 0 
oie? CALL PUTMAR (SUF 0 
0128 C iF TEBUGD TYPE ery (PRENAM (1), I = 2, PRENAM (1) + 1) 0 
0129 CALL PUTMAR (D 5 0 
01 C IF (DEBUG) TYPE 410, (DOLGBL (1), I = 2, DOLGBL (1) + 1) 0 
0131 INBUF CINPTR) = INBUF (1) = INPTR + 1 0 
0138 CALL PUTMAR CINBUF CINPTR)) 0 
0133 IF COEBUG) TYPE 410, (MARBUF (1), I = 2, MARBUF (1) + 1) 8 
0135 IF (.NOT. ERROUT) GOTO 10 0 
0136 RETURN 0 
0137 0 
01 10 MARBUF (1) = 1 0 
91 9 CALL OUTMAR 0 

140 IF (.NOT. ERROUT) GOTO 20 0 
O14) RETURN 
b148 20 CALL PUTMAR (DEFINI) 
0144 ¢ IF (DEBUG) TYPE 410, (DEFINI (1), I = 2, DEFINI (1) + 1) 
0145 CALL PUTMAR (PRENAMS 

146 CALL PUTMAR (DOLGBL) 
O16? C IF (DEBUG) TYPE 410, (MARBUF (1), I = 2, MARBUF (1) + 1) 
0149 IF (.NOT. ERROUT) GOTO 30 

130 RETURN 

13¢ 30 MARBUF (1) =1 

15 CALL OUTMA 

136 a ( NOT. ERROUT) GOTO 40 

1 

12 40 CALL PUTBLI (EXCL sp) 
0158 CALL PUTBLI (PRENAM 


OUTSTR ig-fe 27-1984 VAX=11 FORTRAN Page 158 
oon 18Be Betsy eT MSORE FEN. Fao s3°sacampL32.ror:12% 
15 LL PUTBLI (SUFNAM) 
1 CALL PUTBLI (TABSTG) 
16 CALL EXCCMT CINBUF. INP 
168 Ct PUTBLI CINBUF CINPTR)) 
16 IF (DEBUG) TYPE 410, (BLIBUF (1). I = 2, BLIBUF (1) + 1) 
164 CALL OUTBLI 
165 RETURN 
0166 END 
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-S$ep-1984 01:57: 
PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 38 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL 1 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 1s PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE “19 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4407 
ENTRY POINTS 
Address Type Name 
0-00000000 OUTSTR 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11=00000000 I*2 BLANK 9-00000 \g I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI i a 4494 Ct I*2 BLIPTR 5-00000012 L*2 BLKOUT ya 454 EF I*2 BOFSET 
9-0000016C I*2 CBASE 9-Q000016E I*2 CINC P4544 I*2 COL 5-00000016 L*2 CONEXP 
8-00000000 I* E 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12 8 I* 5-00000002 L*2 ERROR 3-908 OOOE L*2 ERROUT 5-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET 9- $ : I*2 FSIGN 9-000000B4 I*2 FSIZ « $446 I*2 |] 
1 It P 10- AS I*2 INPLIN 197898 on6 I*2  INPT -00000 \§ I*2 LASLIN 
16 I*2 LFDSIZ 4-00000 A I*2 LINELEN 9-000 \ I*2 LINTYP 9- 44 18 I*2 LPTR 
9-00000214 I*2 LSBSIZ 1g- > 0004 I*2 MAR 10-Q0000019A I*2 MA ys 0 of I*2 MAS 
9-0000086E I+ GC - 0. 3 I*2 NEGCNT rst 9 1*4 -00000334 I*2 OBBITS 
3 3 I*2 OFSIZ -00 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5- O0OC L*2 SMASK 
1 I*2 SOFSET - rf. L*2 STGEQL 2 36 08 L*2 STROK 11- $e $9 I*2 TAB 
1 I*2 TMP - C L*2 TMPIN -00 A L*2 TMPOUT 9- I*2 TOKTYP 
1 Pop op oe I*2 TTY - 4 9 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-Q000000A L*2 VMASK 
9-00000124 I*2 VOFSET 9- 01 I*2 VSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 

8 196 I*2 ASIGN 4 (2) 
51E I*2 BLBASE 166 (81) 

10 19C I*2 BLIBUF 240 (120) 
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— if-Sen-1 984 81:35:83 | WNdumemasten: or 3o°secompi3z.ror:ie 1" 


1*2 RSTLIN 180 (90) 0 
I*2 SEMSPC (3) 4 

I*2 SPCSTG (2) 
I*2 SPHYSP (4) 0 
I*2 STRSTG 32 (16) 0 
I*2 SUFDEF (4) 0) 
I*2 SUFNAM 32 (16) 8 

I*2 TABEQS (4) 
I*2 TABLAN 6 (3) 01 
I*2 TABOPR 6 (3) 0 
I*2 TABPRN 10 (5) 0 
I*2 TABRAN 6 (3) 0 
I*2 TABSTG (2) 0 
I1*2 TAGNAM 32 (16) 0 
I*2 TMPVAL 162 (81) 0 
I*2 TOKSTG 80 (40) 0 
I* DVLD 18 (9) 0 
I*2 UNITYP 4 (2) 0 
I*2 ZEROSG 4 (2) 0 
I*2 ZRLAHY 10 (5) 8 
0 
LABELS 8 

Address Label Address Label Address Label Address Label Address Label Address Label 
0-000000AD 10 0-000000C2 20 0-000000EA 30 0-O00000FF 40 nt 400' 1-00000000 410° 
Pp 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 
EXCCMT OUTBLI OUTMAR PUTBLI PUTMAR 
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16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4-56 Page 162 
Haat 81:37:58 DI SKSVMSMASTER: CMDL32. SRCIMDL32.FOR:1 

eid SUBROUTINE OUTCNL 

0008 C OUTPUTS THE CLOSING OF A_CONSTANT NAME DEFINITION LIST 

si C AND THE BEGINNING OF ANOTHER NAMED THE SAME AS THE LAST ONE. 

se INCLUDE "SRC$:MDL32CMN.CMN/NOLIST' 

0109 IF (DEBUG) TYPE 300 

Bit? 300 FORMAT (° CONSTANT LIST REPEAT") 

O12 CALL PUTMAR (TABSTG) 

011 CALL PUTMAR (TABRAN) 

giie CALL OUTMAR 

0116 CALL PUTMAR (EQULST) 

0117 CALL PUTMAR (CONPRE) 

0118 CALL PUTMAR (CONTAG) 

0119 CALL PUTMAR (DOLGBL) 

0120 CALL PUTMAR (COMMAS) 

0121 CALL PUTMAR (COMMAS) 

Biss CALL PUTMAR (MRINCR) 

O12 CALL PUTMAR (COMMAS) 

0124 CALL PUTMAR (LANHYP) 

0125 CALL OUTMAR 

0126 

0127 RETURN 

0128 END 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE "3¢ PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 2 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
& VARS 15 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4137 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTCNL 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
I*4 BINVAL 11-00000000 I* LAN Fae S44 54 E I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI a 4 4 054 I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A is BOF SET 
9-0000016C I*2 CBASE 9-0000016E I«2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
a ssia init I*2 DEBUG res 44 9 L*2 ENDEXP 5-00000000 L*2 ENDFIL uF a4 44 I*2 EOLCH 
12-00000008 I* RR 5-00000002 L*2 ERROR rae 4444 OE L*2 ERROUT 3~8008 010 L*2 FLDLAS 
B-popp ones I*2 FOFSET 9-000000B86 I*2 FSIGN 444 B4 I*2 FSIZ 12-00000000 I*2 INP 
1 AS I*2 INPLIN 10-000000A6 I*2 INPT 9-00000 \f I*2 LASLIN 9-00000216 I*2 LFOSIZ 
4-0000000A I*2 LINELEN 9- BRR ge I*2 LINTYP 9-0000021 I*2 LPTR 9-00000214 I*2 LSBSIZ 
12-00000004 I* 10- 49 A I*2 MARPTR 12-00000 of I*2 MAS 9- 3888 —E I*2 MNGCNT 
baa sais 339 I*2 NEGCNT 4- O66 $98 1*4 4 9-00000334 I*2 OBBITS 9-00000 f I*2 OFSIZ 
isd Steea 00000006 ey STROK. 1300000008 is) TAB 13-90000006 sd RP 
s-oo0001€ Les THEI B-B000001A Leo FMPOUT 9-00000030 {#3 TORTYP 13- QOOQ00A feo TTY 
5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK -00000124 I*2 VOFSET 
9-00000128 I*2 vSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 


6- pA I*2 AMASK 4 (2) 
6 1 I*2 ASIGN 4 (2) 
9 SIE I*2 BLBASE 166 (81) 
10- 019C I*2 BLIBUF 240 (120) 
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Cm 


LA 


I*2 RSTLIN 
I*2 SEMSPC 
I*2 SPCSTG 
I*2 SPHYSP 
Ig STRSTG 
I*2 SUFDEF 
I*2 SUFNAM 
I*2 TABEQS 
I*2 TABLAN 
I*2 TABOPR 
I*2 TABPRN 
I*2 TABRAN 
I*2 TABSTG 
I*2 TAGNAM 
I*2 TMPVAL 
I*2 TOKSTG 
I*2 UNDVLD 
*2 UNITYP 
I*2 ZEROSG 
I*2 ZRLAHY 


LABELS 
Address’ Label 
1-00000000 300° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
OUTMAR PUTMAR 
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Breeen 188s 01:87:58 DLSKSUMSHASTEN: LRDL3>° SRCIMDL32. FOR: 1°” 
B00) SUBROUTINE TMPWRT 
0008 : THIS IS A NEW ROUTINE FOR VERSION 1.3. 
0005 C IT OUTPUTS A LINE FROM THE ee FILE TO THE TMP FILE. 
0006 C Mw LINE IS IDENTICAL TO THE SOURCE LINE, EXCEPT THAT 
0007 C LEADING MINUS HAS BEEN CHANGED TO A PLUS IN 
Spee C tHe CASE THAT THE LINE IS A FIELD DEFINITION. 
Bolg INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
$143 WRITE (TMP) INBUF (1), CINBUF (1), I = 2, INBUF (1) + 1) 
0114 RETURN 
0115 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 72 PIC CON REL LCL SHR EXE RD NOWRT LONG 
¢ SLOCAL 16 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG } 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 3987 
ENTRY POINTS 
Address Type Name 
0-00000000 TMPWRT 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
I*4 BINVAL 11- 0 I*2 BLANK - 1 I*2 BLBITS 9- 2 I*2 BLFOFS 
Ie I © st I*2 BLIPTR 5- 8 13 L*2 BLKOUT 9- 12h I*2 BOFSET 
I*2 CBASE - bo5 I*2 CINCR 4- I*2 COL 5- L*2 CONEXP 
It2 DEBUG - 14 L*2 ENDEXP - 0 L*2 ENDFIL 11- ° I*2 EQLCH 
I*2 ERR - 02 L*2 ERROR - ‘ L*2 ERROUT - L*2 FLOLAS 
I*2 FOFSET - B6 I*2 FSIGN - I*2 FSIZ - I* 
It P 10- AS I*2 INPLIN 10- 30 I*2 INPTR - f I*2 LASLIN 
I*2 LFDOSIZ 4- OA I*2 LINELEN - 26 I*2 LINTYP 9- 18 I*2 LPTR 
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ARRAYS 
Address 


Bytes 
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I*2 MAR a 
I*2 NEGCNT 

I*2 OQUNSIZ - 
L*2 STGEQL - 
L*2 TMPIN - 
L*2 UNDOK 9-00 
I*2 VSIZ 

Dimensions 

(2) 

(2) 

(81) 

(120) 

(81) 

(10) 

(81) 

(10) 

(6) 

(2) 

(10) 

(10) 

(16) 

(16) 

(3s 11) 

(3) 

(81) 

(10) 

(10) 

(13) 

(14) 

(6) 

(12) 

(3) 

i) 

(8) 

(11) 

(9) 

(8) 
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(2) 

(2) 

(36) 

(2) 

(83) 

(3) 

(133) 

(9) 

(8) 

(120) 


3 


VAX=11 FORTRA 
DISKSVMSMASTER: 
MARPTR 1 
NUM 
POSOFF 
STROK I 
TMPOUT 
UNISIZ 
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MAS 

OBB1TS 

SMASK 


AB 
TOKTYP 
VMASK 
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. Version v02-001 


CRRe eee EERE EAE EAA EE AAA AERAA RARER AAA ERATE EERE REREEEE 


C* COPYRIGHT (c) 1980 
C* BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


é 
* 
® 
® 
® 
Ct ne SOFTWARE IS FURNISHED a A LICENSE AND MAY BE USED AND COPIED * 
C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Ct INCLUSION OF THE ABOVE ot tS alt NOTICE. THIS SOFTWARE OR ANY OTHER * 
C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
C* TRANSFERRED. * 
+ 
* 
8 
® 
* 
® 
® 
® 
* 


C® 
C* THE INFORMATION IN THIS SOFTWARE IS er TO CHANGE WITHOUT NOTICE 
- pponat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i capseeeciia hetnaeiaiaiastcenaienenhaiiidaneathdaedniten ita iaicidaliiitnin 
C 
C REVISION HISTORY: 
3 22-03-77 cP ADD NEGSGN FOR NEGATIVE POSITIONING. 
C 29-06-77 TC CHANGED STRING FOR DOLBYT FROM 
C *SBYTEPOSITION' TO 'SBYTEOFFSET’ 
: (2.4) 
C 18-02-80 TIM HALVORSEN 
C REMOVED $ FROM DOLMAC AND ADDED NEW 
C STRING DOLLAR AND UNDVLD 
SUBROUTINE INISTG 
C THIS ROUTINE INITIALIZES A SET OF STRINGS THAT ARE USED 
C OVER AND OVER AGAIN IN OUTPUT LINES FOR THE BLISS AND MARS 
C TRANSLATED FILES. 
C EACH CALL TO LITSTG CONVERTS A_ STRING LITERAL ie A_ COUNTED 
: Hf a IS STORED IN THE ARRAY LISTED AS THE FIRST 


INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 


CALL LITSTG (DOTMAC, ° .MACRO ', 8) 
CALL LITSTG (DOLLAR. °$*, 1) 

CALL LITSTG (DOTBLK. ° ‘BLK, 5) 
CALL LITSTG (DOLGBL. ',$GBL', 5) 

CALL LITSTG (DEFINI. ° SDEFINI ', 9) 
CALL LITSTG (DOLDEF, SE 5) 
CALL LITSTG (DEFEND, ° S$DEFEND '. 9) 
CALL LITSTG (ENDMAC, '  .ENDM °, 7) 
CALL LITSTG (SUFDEF. "DEF, 3) 

CALL LITSTG (AMASK, "M', 15 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE $68 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
g SLOCAL 1120 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 4351 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 1¢ PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 218 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5722 
ENTRY POINTS 
Address Type Name 
0-00000000 INISTG 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I* LAN 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOF 
12-00000002 I*2 BLI 10-0099028¢ I*2 BLIPTR 3750900013 L*2 BLKOUT 9-0000012A I*2 BOFSET 1 
9-0000016C I*2 CBASE “Q000016E I* INCR 4-00000004 I* OL Fam 4544 49h L*2 CONEXP 
ge sia la a4 I*2 DEBUG 5- bE L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 I* RR 5-00 ; 02 L*2 ERROR ess hg L*2 ERROUT 3-98 0010 L*2 FLDLAS 
9-00000122 I*2 FOFSET 9-000 bee I*2 FSIGN 9-0000 a I*2 FSIZ y 0000000 I*2 INP 
10-000000A8 I*2 INPLI 10-000 Ag I*2 INPT 9 9 90 if I*2 LASLIN 00000216 I*2 LFDSIZ 1 
4-Q0000000A I*2 LINELEN 9- 3 \¢ I*2 LINTYP 9-0000021 I*2 LPTR 9- tie 14 I*2 LSBSIZ 
1 I*2 MA 10- 19A I*2 MARPTR 1§-38 00 of I*2 MAS 9-Q000086E I* GCNT 
I*2 NEGCNT 4- "0 1*4 NUM - 44 4 I*2 OBBITS 9-00 4 f I*2 OFSIZ 
I*2 OUNSI - L*2 POSOFF 5- L*2 SMASK 9-000001 I*2 SOFSET 
L*2 STGEQL = 98 L*2 STROK 11- 8 I*2 TAB 15-80 it 6 I* MP 
1¢ Le2 TMPI - A L*2 TMPOUT 9- I*2 TOKTYP le- A I*2 TTY 
: L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 
9-000001 I*2 VSI2 
ARRAYS 
Address Type Name Bytes Dimensions 


6 A I*2 AMASK 4 (2) 
196 I*2 ASIGN 4 (2) 
SIE I*2 BLBASE 162 (81) 

1 19C I*2 BLIBUF 240 (120) 
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NISTG 16-Sep-1984 01:57:23 VAX-11 FORTRAN ¥3.4-56 Page 173 
spe 97900-1382 8:25:83 DE EKSUMGRAS TER: ERDL 32° SRCIMDL32. FOR: 1 . 

1*2 RSTLIN 180 (90) of 
1*2 SEMSPC (3) ef 
I*2 SPCSTG 4 (2) Of 
It? SPHYSP (4) ss 
I*2 STRSTG (16) ot 
I*2 SUFDEF (4) et 
I*2 SUFNAM 32 (16) 4 
I*2 TABEQS (4) 4 
I*2 TABLAN 6 (3) 3 
I*2 TABOPR 6 (3) 
I*2 TABPRN 10 (5) 4 
I*2 TABRAN 6 (3) 3 
Isp Tae rants 
I*2 TMPVAL 185 (81) 01 
I*2 TOKSTG 80 (40) 4 
I*2 UNDVLD 18 (9) Z 
I*2 UNITYP 4 (2) 

I*2 ZEROSG 4 (2) 

I*2 ZRLAHY 10 (5) 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LITSTG 
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if-te 30071382 8} 3 ‘3 DISKSVMSMASTER: LMDL32.SRCIMDL32.FOR; 1 fage 


SUBROUTINE CMPSTG (STGONE, STGTWO) PF 


COMPARES TWO COUNTED STRINGS. RETURNS A .TRUE. IN STGEQL IF 
THEY MATCH EXACTLY. OTHERWISE RETURNS A .FALSE. IN STGEQL. 


STGTWO IS THE CONTROL STRING HAS A LENGTH COUNT 
AS LONG AS THE STRING MUST BE 15 Caare 


INCLUDE "SRC$:MDL32CMN.CMN/NOLIST' 

INTEGER STGONE (*), STGTWO (*) 

JF (DEBUG) TYPE 1000, (STGONE (1), I= 

1 (STGTWO (I STGTWO (1) 
000 FORMAT (* STRINGS ARE ',40A1) 


o sie (1) _+ 1 
ge° -EQ. STGTWO (1)) GOTO 10 


aaseseserese 


2. STGONE (1) + 1), 
+ 1) 


{ 
‘ 
' 


10 


lolelelelelelelelealelololo) 
pane oe one ee ee er er er er er er 


MNMPNNIN 3 ee eo 
MEWN—OOONOUS 
—O 
uno 
eres 
RO 
to 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 $COD 87 PIC CON REL LCL SHR EXE RD NOWRT LONG 
$ SLOCAL 44 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE D WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE D WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Aliocated 4030 


ENTRY POINTS 
Address Type Name 
0-00000000 CMPSTG 
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g73e0-13 4 94:25:88 DISKSVMSMASTER: CHOL 32. SRCIMDL32.FOR: 1 . 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 

1*4 BINVAL 11- 0 I*2 BLANK - 1 I*2 BLBITS 9- 732 I*2 BLFOFS 
I*2 BLI 10- a8¢ I*2 BLIPTR 2: 18 L*2 BLKOUT 9- 09 ° A I*2 BOFSET 
I*2 CBASE - ; I*2 CINCR 4- 8 I*2 COL 5- 8 16 L*2 CONEX 
I*2 DEBUG - 14 L*2 ENDEXP 2 0 L*2 ENDFIL 11-00000004 I*2 EOLC 
I*2 ERR - 02 L*2 ERROR - i L*2 ERROUT 5-0000) 8 L*2 FLDLAS 
I*2 FOFSET - I*2 FSIGN 9- B4 I*2 FSIZ 6: 4's I*2 | 
I* NP 10- AS I*2 INPLIN 10- ry 4 I*2 INPTR -00( v0 \§ I*2 LASLIN 
I*2 LFDSIZ 4- pA I*2 LINELEN 3. 8 1s I*2 LINTYP « Debs 1 I*2 LPTR 
I*2 LSBSIZ 12- 4 I*2 MAR 10- 19A I*2 MARPTR l2- $6 o¢ I*2 MAS 
I*2 MNGCNT m4 $f I*2 NEGCNT 4-000 B898 1*4 NUM 9-50000334 I*2 OBBITS 
I*2 OFSIZ -00 I*2 OUNSIZ 5-0¢ 90018 L*2 POSOFF 5-0000000C L*2 SMASK 
I*2 SOFSET 5-00000004 L*2 STGEQL 5-00000006 L*2 STROK he 444423 I*2 TAB 
I*2 TMP 5-0000001C L*2 TMPIN 5-0000001A L*2 TMPOUT 9-00000050 I*2 TOKTYP 
I* TY 3 Bobb OT oe L*2 UNDOK 9-00000082 I*2 UNISIZ 5-Q0000000A L*2 VMASK 
I*2 VOFSET 9-000001 I*2 VSI 

ARRAYS 

Address Type Name Bytes Dimensions 

I*2 AMASK 4 (2) 
I*2 ASIGN 4 (2) 
I*2 BLBASE 162 (81) 
I*2 BLIBUF 240 (120) 
I*2 BLINCR "$6 (81) 
I*2 BLSSIZ 20 (10) 
I*2 BVALUE 1$¢ (81) 
I*2 BYTSI2 20 (10) 1 
I*2 COMGBL 12 (6) 
I*2 COMMAS 4 (2) 
I*2 CONBAS 20 (10) 
I*2 CONINC $3 (10) 
I*2 CONPRE 2 (16) 1 
I*2 CONTAG 3 (16) 
I*2 CONTEX 198 (9, 11) 
I*2 CPAREN 4 (@ 
Ie PRCOM (3) 
I*2 CVALUE 162 (81) 
I*2 DEFEND (10) 
I*2 DEFINI (10) 
I*2 DOLBIT (13) 
I*2 DOLBYT (14) 
I*2 DOLDEF (6) 
I*2 DOLFLD 24 (12) 
I*2 DOLGBL 12 (6) 
I*2 DOLLAR 4 te} 
I*2 DOLVLD 1 (9) 
I*2 DOTBLK 1 (6) 
I*2 DOTEQS 1 (5) 
Ie OTMAC 22 (11) 
I*2 ENDMAC 1 (9) 
I*2 EQULST 1 (9) 
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DISKSVMSMASTER 


Yeersee 
: CMDL32.SRCIMDL32.FOR; 
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CMPSTG 1 -1984 2:57:23 VAX=11 FORTRAN V3.4=- 77 
=3eP 71387 8} :25:8% NT SUME RAS TEN LAD 32° SRCIMDL32.FORS 1° o* . 
LABELS 
Address Label Address’ Label 


0-00000048 10 +e 1000" 


‘ 
; 
Q 
| 
8 


—s es kk lk kk kk lk kk 


te 


Se 
Sep 


1882 81:34:88 


et FORTRAN NY 
DISKSVMSMASTER: 


5. 
M 


b133° SRCIMDL32.FOR;1 


Frage 178 


B538 


ooesseseees 


S8eesss 


SUBROUTINE MOVSTG (SRCSTG, DSTSTG) 


C MOVES ONE STRING INTO ANOTHER LOCATION. THE FIRST 
C ARGUMENT IS _ THE SOURCE STRING ADDRESS, THE SECOND ARGUMENT 
C THE DESTINATION STRING ADDRESS. 
C THE NUMBER OF LOCATIONS MOVED IS THE COUNT STORED IN THE 
C FIRST LOCATION OF THE SOURCE STRING PLUS 1 
INTEGER SRCSTG(*), DSTSTG(*) 
DO 10 I = 1, SRCSTG (1) + 1 
DSTSTG (1) = SRCSTG (1) 
10 CONTINUE 


VAX=11_ FORTRAN 
DISKSVMSMASTER 


34-56 179 
{MBL 33° SRCIMDL32.FOR: 1°" 


SS 


. 


—_ 


MOVSTG 


PROGRAM SECTIONS 
Name 


0 SCODE 
2 SLOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
2-00000000 I*2 


ARRAYS 
Address Type 
AP-0000000%8 1*3 
LABELS 
Address 
ef 10 


Label 


DSTSTG 
SRCSTG 


Bytes 


115 


Bytes Dimensions 


ae 8 (#) 
we 8 (®) 


Attributes 


71 =~-PIC CON REL 
44 PIC CON REL 


LC 
LC 


L 
LN 


SHR 
OSHR NO 


VAX-11 FORTRAN V3.4-56 Page 180 
DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 


RD NOWRT LONG 


WRT LONG 


L 


71382 81:35:52 DT SkSUMGhAS TER: FOL32° SRCIMDL3Z.FOR: 1% 


: + © REVISION HISTORY: Of 
: C 22-03-77 cP INITIALIZE TMP FILE CONTEXT. OC 
¢ CHANGE INITIALIZATION OF CONTEXT 0 
C ARRAY SO THAT THE FIFTH FIELD IS O( 
5.2 A NEGATIVE ONE IF NO MARK HAS BEEN 01 
¢ SET FOR THIS CONTEXT POSITION. 01 
f c VARIABLES. 9 
0009 —s«¢ 20-04-77 TC CHANGE INIT. OF CONTEXT ARRAY Oo 
0010 —«¢ SO THAT THE NINTH (RATHER 0' 
0011 ~«C¢ THAN THE FIFTH) FIELD IS -1 IF NO 0' 
O01¢ ¢ MARK HAS BEEN SET FOR THIS CONTEXT 0’ 
9013 ¢ POSITION. 4 
0015 SUBROUTINE INISTR 6 
0017 C INITIALIZES VARIABLES FOR A NEW STRUCTURE DECLARATION. 9 
9019 INCLUDE "SRC$:MDL32CMN.CMN/NOLIST® 9: 
O19¢ C INITIALIZE TMP FILE CONTEXT VALUES. 9 
0124 TMPIN = .FALSE. 
0125 TMPOUT = .FALSE. 
O17 C INITIALIZE EACH CONTEXT FIELD. 
0129 BLFOFS = 0 
0130 SOFSET = 0 
0131 FOFSET = 0 
013¢ BOFSET = 0 
013 LFDSIZ = 0 
013% LSBSI2Z = 0 
0136 C INITIALIZE THE SAVED CONTEXT ARRAY. 
0138 DO 10 I = 1,10 
0139 CONTEX (9, [) = =1 
0140 10 CONTINUE 
014g C INITIALIZE THE MAXIMUM VALUES TO ZERO 
0144 DO 20 1 = 1,8 
145 CONTEX (1, 11) = 0 
146 20 CONT INUE 
148 C INITIALIZE THE FIELD NAME AND TAG NAME 
0150 FLDNAM (1) = 
o151 TAGNAM (1) = 
138 TAGNAM (2) = *$° 
133 TAGNAM (4) = ‘_° 
135 INITIALIZE LINE TYPE VARIABLES 
133 LASLIN = 0 
158 FLDLAS = .FALSE. 


RETURN 
END 


bs 
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INISTR 16-Sep-1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 183 
mae 1 84585; 6 DI SKSVMSMASTER: CMOL 32. SRCIMDL32.FOR:1 = 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 128 PIC CON REL LCL SHR EXE RD NOWRT LONG 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE WRT LONG 
EXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GB SHR NOEXE RD WRT LONG 
MORSTG PIC OVR REL GB SHR NOEXE RD WRT LONG 
8 CHECKS PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4031 
ENTRY POINTS 
Address Type Name 
0-00000000 INISTR 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
Pia 44 4 I*4 BINVAL 11-00000000 I* LANK 9-0000021 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0 tet te I*2 BLIPTR 5-0 $00813 L*2 BLKOUT 9-Q0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-000 Bass I*2 CINCR 4-00000004 I*2 COL Fass L*2 CONEXP 
ae sie alata I*2 DEBUG 3 000014 L*2 ENDEXP 5-0 444 44 L*2 ENDFIL 1-00000004 I* OLCH 
12-00000008 I*2 ERR - + 5 L*2 ERRO 5-Q000000E L*2 ERROU a's ''4'54 9 L*2 FLDLAS 
9-00000122 I*2 FOFSET 3 00 rt I*2 FSIGN 9-000000B4 I*2 FSIZ 2-00000000 I* 
12 I*2 INP 10- sit 4 I*2 INPLIN 10-000000A6 I*2 INPTR Fam 4 Fa I*2 LASLIN 
216 I*2 LFDSIZ 4- B85 OOA I*2 LINELEN 808080158 I*2 LINTYP 9-0000021 I* PTR 
9-00000214 I*2 LSBSIZ _ 0000004 I*2 MAR bass 19A I*2 MARPTR uF a's 44's It AS 
BROOD OBOE It GC -0000 $° I*2 NEGCNT 4-000 9 1*4 9-000 4 I*2 OBBITS 
3 3 It FSIZ 9-00 3 0 I*2 OUNSIZ 2 BOS 18 L*2 POSOFF 44 OOC L*2 SMASK 
120 I*2 SOFSET 5- 004 L*2 STGEQL -0000 96 L*2 STROK 11-00000002 I*2 TAB 
1 I*2 TMP 2 BA L*2 TMPI 5- it A L*2 TMPOUT 3-698 888 I*2 TOKTYP 
j A I*2 TTY - 05 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0 OA L*2 VMASK 
124 I*2 VOFSET 9-00000128 I*2 vSIZ 
ARRAYS 
Address Type Name Bytes Dimensions 
6 DA I*2 AMASK 4 (2) 
196 I*2 ASIGN 4 &) 
SIE I*2 BLBASE 162 (81) 
1 195 I*2 BLIBUF e 6149) 
9 I*2 BLINCR 62 (81) 
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LABELS 
Address 


ef 


I*2 SEMSPC 
I*2 SPCSTG 
I*2 SPHYSP 
I*2 STRSTG 
I*2 SUFDEF 
I*2 SUFNAM 
I*2 TABEQS 
I*2 TABLAN 
I*2 TABOPR 
I*2 TABPRN 
I*2 TABRAN 
I*2 TABSTG 
I*2 TAG 
I*2 TMPVAL 
I*2 TOKSTG 
I*2 UNDVLD 
*2 UNITYP 
I*2 ZEROSG 
I*2 ZRLAHY 
Label Address Label 
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1g -30-1984 91:32: 3 VAX=-11 FORTRAN Page 186 


-Sep-1984 01:57:26 DISKSVMSMASTER: fmoL33 SRCIMDL32.FOR;1 


SUBROUTINE INIFLD 
INITIALIZES THE ARGUMENT DEFAULTS FOR FIELD AND SUBFIELD 


DEFINITIONS. 
INCLUDE "SRC$:MDL32CMN.CMN/NOLIST' 
UNITYP (2) = °L' 
TAGNAM (35) = ‘L" 
FLDNAM (1) = 0 
UNISIZ = 4 

FSIZ = 1 

BLBITS = 32 
FSIGN = 0 

ASIGN (1) = 1 
ASIGN (2) = ‘0O" 
RETURN 

END 
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INIFLD 1§-Sep-19 257: VAX=11 FORTRAN POET Page 187 
-Sep-19 257: DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 1 


PROGRAM SECTIONS 
Attributes 


B25 


Zor wmD += 4 
vuvvuVvVVUVVUUU 
fs es ae be ae be be be Be Be 


ab ne 
N—OOONOUS 
munv. 

CUR >y=z 
AOMOOOOOOON 
DDDDDDWDWDWD 
rereeereecee 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-90000000 INIFLD 


VARIABLES 
Address Name Address Type Name Address Type Name Address Type Name 
BINVAL BLBITS I*2 BLFOFS 
BLI BLKOUT I*2 BOFSET 
COL 
ENDFIL 
ERROUT 
FSIZ 
LASLIN 
LPTR 


oe 
oOo: 
SOoQoQooooooooooo 
Ooo 
Oooo—w 


Ooooooooooo 
SOOoQooooooooo 
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MAS 
OBBITS 
SMASK 
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TAB 
TOKTYP 
VMASK 


L* TRO 
5 TMPOUT 


TTY 
I*2 UNISIZ VOF SET 


Dimensions 


= 
‘6 = 
none 
aowm 
0vm 
ee 
_—— 
woo 
c@oo0o 
oo 
—— 
ww 
~N 
ror 


INIFLD 2:57:23 VAX-11 FORTRAN thet Page a 
2:57:26 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 


I* BVALUE 1 (81) 
I*2 BYTSI (10) 
I*2 COMGBL (6) 
I*2 COMMAS 4 (2) 
I*2 CONBAS ( 0) 
I*2 CONINC (10) 
T#2 CONPRE (16) 
i*2 CONTAG (16) 
I*2 CONTEX 1 (9, 11) 
I*2 CPAREN 4 (25 
I*2 CPRC (3) 
I*2 CVALUE 1 (B1) 
I*2 DEFEND (10) 
I*2 DEFINI (19) 
I*2 DOLBIT 6 (13) 
I*2 DOLBYT (14) 
1*2 DOLDEF 12 (6) 
I*2 DOLFLD 24 (12) 
I*2 DOLGBL 12 (6) 
I*2 DOLLAR 4 (2) 
I*2 DOLVLD 18 (9) 
I*2 DOTBLK 12 (6) 
I1*2 DOTEQS 10 (5) 
1*2 DOTMAC 22 (11) 
I*2 ENDMAC 18 (9) 
I*2 EQULST 18 (9) 
I*2 EQUTAB 12 (6) 
I*2 EXCLSP 14 (7) 
I*2 EXPCLO 4 (2) 
I*2 EXPOP 4 (2) 
I*2 FLD 72 (36) 
I*2 HYPHEN 4 (2) 
1*2 INBUF 166 (83) 
I*2 LANHYP (3) 
Le] LINE 133 (133) 
I*2 LITTAB 18 (9) 
Ie CT 16 (8) 
1*2 MARBUF 240 (120) 
Ie BAS 162 (81) 
Ie INC 162 (81) 
1*2 MVALUE 162 (81) 
Le E 32 (32) 
Iv NEGSGN 4 (2) 
Le] NUMST 133 (133) 
I*2 OASIG 4 (2) 
1*2 OFFSET 20 (10) 
I*2 ONES 6 (3) 
1*2 OPAREN 4 (3) 
I*2 OS (16) 
I*2 OT (16) 
I*2 OUNTYP (16) 
1*2 PCTSEM (4) 
Le] PREFI 3 (133) 
I*2 PRE (16) 
I*2 RANHYP (3) 
I*2 RSTLIN 180 (90) - 
1*2 SEMSPC (3) 
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ig se0-1984 1:30:63 VAX=-11 FORTRAN 


tase rege 190 
-Sep~1984 DISKSVMSMASTER: moto" SRCIMDL32.FOR;1 


B00) SUBROUTINE SAVSBA 

8008 SAVES SUBFIELD NAME, TAGNAME, UNIT TYPE, AND UNIT SIZE 
0004 C SO THAT THE SUBFIELD DEFINITION CAN BE OUTPUT 

0005 PARTWAY THROUGH THE PROCESSING OF THE NEXT SUBFIELD. 
000 INCLUDE 'SRCS:MDL32CMN.CMN/NOLIST' 


DO 10 I = 1, FLDNAM (1) + 1 
OSBNAM (I) = FLDNAM (1) 
10 CONT INUE 


DO 20 I = 1, TAGNAM (1) + 1 
OTGNAM (1) = TAGNAM (1) 

20 CONTINUE 
DO 30 I = 1, UNITYP (1) + 1 
OUNTYP (1) = UNITYP (1) 

30 CONT INUE 


OFSIZ = FSIZ 
OUNSIZ = UNISIZ 


jelelelelelelelelelelelelelelelelelelolelelole) 
2 
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OASIGN (1) = ASIGN (1) 
OASIGN (2) = ASIGN (2) 
OBBITS = BLBITS 
RETURN 

END 


Ne 


16 
SAVSBA 1 -1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 191 
att 7 Ot :25:8% D1 SKSVMSMASTER: EMBL 32° SRCIMDL32. FOR: 1 . 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 157 PIC CON REL LCL SHR EXE RD NOWRT LONG 
§ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 22 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4060 


ENTRY POINTS 
Address Type Name 


0-00000000 SAVSBA 
VARIABLES 

Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK ae 4s fF I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT -0000012A I*2 BOFSET 
9-0000016C I*2 CBASE -0000016E s CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 

~00000000 i$ DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 I*2 ERR 5-00000002 L*2 ERROR 5-OO000000E L*2 ERROU 5-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET -000000B6 I*2 FSIG 9-000000B4 I*2 FSIZ S~heonoete I*2 | 
2 $ INP 10-Q000000A8 I*2 INPLI 10-Q00000A6 I*2 INPT 9-00000 \f I*2 LASLIN 
9-00000216 I*2 LFDSIZ ~2098 OOA I*2 LINELEN 4's SE I*2 LINTYP 9-0000021 I*2 LPTR 
9-00000214 I*2 LSBSIZ 12-00000004 I*2 MAR 10-0000019A I*2 MARP 12-00000 of I*2 MAS 
9-0000086E I*2 MNGCNT a0 445 235 I*2 NEGCNT Pais 44 I1*4 NUM 9-00000334 I*2 OBBITS 
9-0000032E I*2 OFSIZ 9-00000 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000000C L*2 SMASK 
9-00000120 I*2 SOFSET 5-00000004 L*2 STGEQL -00000006 L*2 STROK 11-00 44 I*2 TAB 
i iss 2-9908 1¢ Lt MPI mri a L*2 TMPOUT 44 I*2 TOKTYP 
1 A I*2 TTY - 8 L*2 UNDOK - O0B2 I*2 UNISIZ 5-Q000000A L*2 VMASK 
9-00000124 I*2 VOFSET 9-000001 It 

ARRAYS 

Address Type Name Bytes Dimensions 
6 DA I*2 AMASK 4 (2) 
g 96 I*2 ASIGN 4 &) 

51E I*2 BLBASE 162 (81) 

10 19C I*2 BLIBUF ¢ (120) 
9-00000662 I*2 BLINCR 62 (81) 


D 
. SAVSBA Wgrzen=t2 4 Ot: 30:63 VAX=11 FORTRAN 


P 19 
Sep-1984 om 


Yesoase 
DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR; 1 


BLSSI1Z (10) 
BVALUE 1 (61) 
6 BYTSIZ (10) 
4 COMGBL (6) 
6 0C4 COMMAS 4 (2) 
6- BF CONBAS ( 0) 
6-000 13 CONINC (10) 
9-0000012C CONPRE (16) 
9-0000014¢ CONTAG (16) 
9-000007A6 CONTEX 198 (9, 11) 
6-00000106 CPAREN 4 (¢5 
ae sated CPRCOM (3) 
- 170 CVALUE 16 (81) 
6-0000004C DEFEND 20 (10) 
22 DEFINI 20 (19) 
1 DOLBIT 26 (13) 
DOLBYT 8 (14) 
DOLDEF 12 (6) 
DOLFLD 24 (12) 
DOL 12 (6) 
DOLLAR 4 (2) 
DOLVLD 18 (9) 
DOTBLK 12 (6) 
DOTEQS 10 (5) 
OTMAC *¢ (11) 
ENDMAC 1 (9) 
EQULST 18 (9) 
QUTAB 12 (6) 
EXCLSP 14 (7) 
EXPCLO 4 (2) 
EXPOPN 4 (2) 
FLD 72 (36) 
HYPHEN 4 (2) 
INBUF 166 (83) 
LANHYP g (3) 
LINE 133 (133) 
LITTAB 18 (9) 
CT 16 (8) 
MARBUF 240 (120) 
MRBASE 162 (81) 
MRINCR 16 (81) 
MVALUE 162 (81) 
NEGSGN eaneie 
ST 133 (33) 
OASIGN 4 (2) 
OFFSET 20 (10) 
ONE SHF 6 (3) 
OPAREN 4 (2) 
Os (16) 
OTGNAM (16) 
OUNTYP (16) 
PCTSEM (4) 
PREF IX 133 (133) 
PRENAM 32 (16) 
RANHYP 8 (3) 
RSTLIN 180 (90) 


SAVSBA 
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Address 


Label 
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SUBROUTINE CHKALC 


CHECKS s. SEE sak cit THE TOTAL ae OF 

BYTES IN THE MARS OUTPUT FILE IS EQUAL TO ¥< ACTUAL 

caer OFFSET. THIS Pasieetce OCCURS WHEN A SET 0 
UBFIELDS DOES NOT TOTAL THE AMOUNT OF SPACE PERMITTED 

By THE SURROUNDING FIELD. 


INCLUDE 'SRCS$:MDL32CMN.CMN/NOLIST' 
INTEGER LOCAL 


IF Ms i ei yors 500, BLFOFS epee ns” SOF SET i IZ 


T ',13," SOFSET °,13,° LSBSIZ ',13) 


mw 
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CHKALC 


PROGRAM SECTIONS 
Name 


SCODE 
4 


Total Space Allocated 


ENTRY POINTS 


Address Type Name 
0-00000000 CHKALC 
VARIABLES 
Address Type Name 
4-00000006 I*4 BINVAL 
12-00000002 I* LI 
9-0000016C i: tard 
13-00000008 1s3. ERR 
9-00000122 I*2 FOFSET 
10-000000A8 I+ INPLIN 
4-0000000A I*2 LINELEN 
$-0900086¢ I*2 LSBSIZ 
—€ I*2 MNGCNT 
9-00000 3 I*2 OFSIZ 
Bot I*2 SOFSET 
1 I*2 TMP 
1 A 3s TY 
124 I*2 VOFSET 
ARRAYS 
Address Type Name 
6 A I SK 
196 I* SIGN 
SIE I*2 BLBASE 
1 19C I*2 BLIBUF 
9-00000662 I*2 BLINCR 


Bytes 
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ww , 
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Attributes 
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Address Type Name 


Soooooo 
> 
WOM LOM SLOOOMLMO 
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I*2 BLANK 
* BLIPTR 
*2 CINCR 
L*2 ENDEXP 
L*2 ERROR 
I*2 FSIGN 
I*2 INPTR 
I*2 LINTYP 

I* R 

I*2 NEGCNT 
I*2 OUNSIZ 
L*2 STGEQL 
L* MPIN 
L*2 UNDOK 
I*2 VSIZ 
Dimensions 
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3b 81:85:38 


Type 


L* 
L* 
L* 
I* 


VAX=11 FORTRAN 
DISKSVMSMASTER 


RD NOWRT LONG 
R WRT 


BLBITS 
BLKOUT 
COL 


TMPOUT 
UNISIZ 


Yeah 33° 
:CMDL32.SRCIMDL32.FOR;1 


Address Type Name 


4 4 FE 
9-0000012A 
5-00000016 
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age 195 


Page 196 


MDL32.SRCIMDL32.FOR;1 


VAX=11 FORTRAN eeaae 


DISKSVMSMASTER: 


CHKALC 


~~ 
- 
- ~ -~ 

aan aAaAaen aAAaann -~ Py - ~*~ aan ma 
Or Oon-0O0O0WU oe ae + a i Oe Oe ee Oe 
HO ON ANIM — — — OM OND ON AA OR. CUCU CICOM — 8 00 — CODD DOM NI IN IO 


a a a a a a a ee er a a ee ee Se Sa Se Se ee Se Se Se Se ee Se Se Se Se Se See Se Se Se Se Se Se Se 


pe = ela > eal et eet Adacualtenctlie tS, tent lial Nl Suna A sett a > od > tua! ah ceed dd ert ne 


al UNBTENO. ODNANNE NK Ke RK Neen ~ oO Mere OOoM" ~m mer oO 

- - Neonre - - - 
NN eee WOK Ko OO IJZTOMYVUYrOAoZEZ a to 1 Or e2ze-uwZz azg=x<azaz 
“Se get erecleAanso 8 ssacee oe Goeees eesess StSsuss5 rat he St 
“uM 0 Ow OMOou98 U>aw scove FS Et pete PLE tf ore —Vu2zzro 
“>> 555500 >wwOSSSSSSoOOOsoOxx x OS eames e>susau se —Soma<n 

— 

+ +-tatutetetetutetutetey-y->-+->->-+->-$-+-$-$-trttrninintes tery ft tS = SS5550 aaaanc 


IOI ONION OOS OS OI OOOO COINS OS III OI IONS 
See eee eeeeeeeeeeeeeeeee 
ek nd nd nd Od nd Od On Od Od nd Od nd Oe Od Od Od nd nd Sd Od Od Od nd Dd OG Od Od Ded Dd Sd Omg Od Od OG Od Od Od Od O_O) _ nd Od Bed Og Omg Oey Ong Od _) Od Oey Od 


WO ET TVUOVUU OO vwwcd wn MVNWO 
: 2 


a ne ae 


16 Pige sy > . | 
asc 1g- 260-1984 84:35:38 DLSKSVMGMAS TEN: EMBL. SRCIMDL32.FOR:1°9° seed 


} 


I*2 SEMSPC 6 (3) 
I*g SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 32 (16) 
I*2 SUFDEF (4) 
I*@ SUFNAM 32 (16) 
I*2 TABEQS (4) 

I*2 TABLAN (3) 
I*2 TABOPR 8 (3) 
I*2 TABPRN 10 (5) | 
It2 TABRAN 6 (3) 

I*2 TABSTG 4 $¢2 
I*2 TAGNAM 32 (16) 

I*2 TMPVAL "8 (81) 
I*2 TOKSTG (40) 
I*2 UNDVLD 18 (9) 
*2 UNITYP 4 (2) | 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) | 
LABELS | 
| 

Address Label Address’ Label Address’ Label 
0-0000002D 20 0-00000040 30 ll 500° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name | 
OUTBLK 


wr — 
on 


pojololelelelololelololoa) 
2 SS 
no cen ne eee 
SOOWONOUSWN oO 


iets 30071 38s 8hi85:5S | Md WGGRS TEN: Por 33° sec ampL32.F0R:1°%° 198 


SUBROUTINE GETREM (PTR) 


COLLECTS THE REST OF AN INPUT LINE AFTER THE DEFINITION 
COMPONENTS AND SAVES IT IN AN AUXILIARY BUFFER. 


INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' 

INTEGER PTR, LOCAL ‘ 

IF (DEBUG) TYPE 500, (INBUF (1), 1 = PTR + 1, INBUF (PTR) + PTR) 

FORMAT (' ',90A 

IF (DEBUG) fvPE 310 PTR INBUF (PTR) 

10 FORMAT me 1§ *,18,' COUNT tf 13) 

D0 10 1 = TERBUF (PTRS + 
LOCAL = 1 = rth, in + 1 

RSTLIN (LOCAL) = INBUF (1) 

CONTINUE 

RETURN 

END 


10 


GETREM 


PROGRAM SECTIONS 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


4-00000006 
Fass '¢ 3 It 


12-00000008 i: 
16 I* 
3 oc It 

a it 


ae 


9-00000082 I* 


ARRAYS 
Address Type 


Name 
GETREM 


Name 
BINVAL 
BL 


BLINCR 
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11- 
19- 
5 
as 
9- 
0- 
4- 
9- 
9- 
) 
Ph 
11- 
9- 
5- 
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FOLonrlsoon—s 
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Address 


000000 
02 
016 


$45 
So 


SOooOoOoooooooooSo 
ssssssssssssss 


Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Type Name Address Type Name Address ‘ype Name 
I*2 BLANK 9-00000 \g I*2 BLBITS 9-00000332 I*2 BLFOFS 
I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
I*2 CINCR 3780808 04 I* OL 5-00000016 L*2 CONEXP 
L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLC 
L*2 ERROR 5-OO000000E L*2 ERROUT 5- st bY L*2 FLDOLAS 
I*2 FSIGN a 4449 tg I*2 FSIZ §- 464 64 I*2 |] 
I*2  INPLIN 10-0 4 Seg I* NPT ms 444 4S I*2 LASLIN 
I*2 LINELEN 9-00 OSE I*2 LINTYP §- 0000000 I*2 LOCAL 
I*2 LSBSIZ 12-00000004 I* R 10-0000019A I*2 MARPTR 
I*2 MNGCNT 9-00000 $c I*2 NEGCNT Pa ss 44444! 1*4 NUM 
I*2 OFSIZ 9-00000 I*2 OUNSIZ 2 0 od L*2 POSOFF 
L*2 SMASK 9-00000120 I*2 SOFSET -00000004 L*2 STGEQL 
I*2 TAB l2- 688 8 6 I* MP 2 5 B84 L*2 TMPIN 
I*2 TOKTYP le- A I*2 TTY -0000 8 L*2 UNDOK 
L*2 VMASK -00000124 I*2 VOFSET 9-000001 I*2 VSIZ 
Dimensions 
(2) 
(2) 
(81) 
f1e0) 
(81) 
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=Sep-1984 01: VAX-11 FORTRAN V3.4-56 0 
ibs Bee aee Otte PANT MSORS TEN: FRDLSS°SRCIMDL32.FOR:1°%* -O 
SUBROUTINE EXCCMT (BUF, PTR) 


EXCHANGES SEMI COLONS IN A LINE FOR EXCLAMATION POINTS. 
INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 

INTEGER BUF(*®), PTR, LOCAL 

LOCAL = BUF (PTR) + 1 


i 4 py TYPE 100, LOCAL 
Aer END OF {LOSP. COUNT IS *,13) 


| 
otiarcenrenhreeegminaamnemtasrteaasee 


* PTR + 1, BUF (PTR) + PTR 
(But ¢ (1) INE. :") GOTO 10 
CONT I NUE 


» 

mn 
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EXCCMT 1B-Sep-1984 01:32:63 VAX=-11 FORTRAN Eg ag Page 203 
| -Sep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 
PROGRAM SECTIONS 
Name Bytes Attributes 

0 SCODE 76 ~=PIC CON REL LCL EXE RD NOWRT LONG 
¢ SLOCAL $7 PIC CON REL LCL NOSHR NOEXE WRT LONG 
ExT 4351 PIC OVR REL GBL R NOEXE RD WRT LONG 
| & VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
| $ LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
| MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
| _9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
/ 10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
| 11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
| 12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 3999 
| ENTRY POINTS | 
| Address Type Name | 
| 0-00000000 EXCCMT | 
"VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-Q0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
8 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 I*2 ERR 5-00000002 L*2 ERROR 5-OO000000E L*2 ERROUT 5-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET 9-000000B6 I*2 FSIGN 9-000000B4 I*2 FSIZ 2-00000002 I*2 | 
12-00000000 I*2 INP 10-000000A8 I*2 INPLIN 10-Q00000A6 I*2 INPTR 9-0000051C I*2 LASLIN 
9-00000216 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 9-00000126 is LINTYP a4 4 6 I*2 LOCAL 
9-00000218 I*2 LPT 9-00000214 I*2 LSBSIZ 12-00000004 I* AR 10-0000019A I*2 MARPTR 
12-0000000C I*2 44 9 I*2 MNGCNT 9-0000086C I*2 NEGCNT 4-00000000 I*4 NUM 
9-00000334 I*2 OBBITS 9-0000032E I#2 OFSIZ 9-00000330 I*2 OUNSIZ 5-00000018 L*2 POSOFF 
MRSUUOE 1S he PRRMUEDRE Ac ARES SRRRGLGE SS ese ange Ee Ease 
- ® - - 
5-0G00001A +5 TMPOUT $-09000050 I*2 TOKTYP em tddited I*2 TTY 27 50000008 tS UNDOK 
9-00000082 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 9-00000128 I*2 vSIZ 
a 
| Address Type Name Bytes Dimensions 
6-O000000DA I SK 4 (2) 
g-poenpare I*2 ASIGN 4 @) | 
-O0000051E I*2 BLBASE 162 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
- 2 I*2 BLINCR 162 (81) 
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6-0000017E I*2 BLSSIZ 20 ) 
AP 048 I*2 BUF te 
9 D8 I*2 BVALUE 196 ) 
6- EA I*2 BYTSIZ 2 ) 
6-000001B4 I*2 COMGB 1 
6-000000C4 I*2 COMMAS 
6-00000112 I*2 CONB 2 ) 
6-00000126 I*2 CONINC ¢ ) 
9-0000012C I*2 CONPRE ) 
14C I* CONTAG 3 ) 
9-000007A6 I*2 CONTEX 19 11) 
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Le] 
I*2 PRENAM 
I*2 RANHYP 


LOR LOL LL LL Le Le Le Le Le le, ln, l,m, fl, fl, lm, l,m, le, l,m, lm, in, in, il, n,m, in, in, fn, im, in, in, i, in, in, im, i, in, i, in, in, im, am, i, in, im, im, fm, in, im, im, 
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| EXCCAT ibe $ep-1984 2 ht: 2f: $2 VAX=-11 FORTRAN fege 205 


-Sep-1984 DISKSVMSMASTER: fmt 32° SRCIMDL32.FOR; 1 


| 9 1A #2) RSTLIN 180 (90) 
Pa CET I*2 SEMSPC a (3) 
| 6 FE I*2 SPCSTG 4 (2) 
g- 1A8 I*2 SPHYSP (4) 
| 92 I*2 STRSTG 32. (16) 
6 72 I*2 SUFDEF (4) 
| 9 72 #2 SUFNAM 32. (16) 
6 14C I*2 TABEQS 8 (4) 
6-O00000CE I*2 TABLAN 6 (3) 
6-000001CA I*2 TABOPR 6 (3) 
6-000001CO0 I*2 TABPRN 10 (5) 
6-O00000AC I*2 TABRAN 6 (3) 
6-0000008C I*2 1ABSTG 4 (2) 
9-000001 1*2 TAGNAM 32 (16) 
9-0000067A I*2 TMPVAL 162 (81) 
9 1*2 TOKSTG 80 (40) 
6-00000238 I*2 UNDVLD 18 (9) 
6 7A #2 UNITYP 4 (2) 
6-00000192 I*2 ZEROSG 4 (2) 
6-000000A2 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label 


0-00000041 10 ee 100° 


- 
NCSSEHOEE BUSHFSGE IBCLGRRTE 


P 206 
PE CSUMSHAS TER: ERDL 32. SRCIMDL32. FOR: 109° 


0001 ¢ REVISION HISTORY: 
2008 ¢ 29-06-77 TC REPLACED THREE CALLS ON CHKMAK 
000 ¢ AND ONE CALL ON MOVSTG WITH A 
2004 C CALL ON ETOMAR. (2.4) | 
S000 SUBROUTINE CVTEXP (INPVAL, BLIDUM, MARDUM) | 
9008 C CONVERTS AN EXPRESSION FOUND AT INPVAL INTO A BLISS | 
0009 ~«C¢ AND A MARS EXPRESSION. THE BLISS EXPRESSION IS SAVED 
9010 ¢ AT BLIDUM. THE MARS EXPRESSION IS SAVED AT MARDUM. | 
9012 INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST' | 
0115 INTEGER INPVAL (*), BLIDUM (*), MARDUM (*) 
0116 CALL MOVSTG (INPVAL, TMPVAL) 
0117 CALL ETOBLS (TMPVAL BL IDURD | 
0118 IF (BLIDUM (BLIDUM (1) + 1) .EQ. '=") 
0119 1 BLIDUM (1) = BLIDUM (1) = 1 
0120 ¢ IF (DEBUG) TYPE 500, (BLIDUM (1), I = 2, BLIDUM (1) + 1) 
0121 C IF (DEBUG) TYPE 500, CINPVAL (1), I = 2, INPVAL (1) + 1) 
O12 500 FOR 0A1) 
012 CALL Crgmant IMPVAL MARDUM 
0124 C IF rGpEBUG) TYPE 506, (MARDUM (1), I = 2, MARDUM (1) + 1) 
0126 ah | 
PROGRAM SECTIONS | 
Name Bytes Attributes 
0 S$CODE 107 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
, SLOCAL 96 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE 0D WRT LONG | 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4102 


ENTRY POINTS 
Address Type Name 
0-00000000 CVTEXP 
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; 
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“11 FORTRAN V3.4-56 Page 207. 
33 DISKSVMSMASTER: LHDL 33. SRCIMDL 32. FOR: 1 | 
| VARIABLES 
| Address Type Name Address Type Name Address Type Name Address Type Name 
 &=00000006 5 Ts 9-00000332 I*2 BLFOFS 
eee ip i I Ree a te ee 
*Q000016C I*2 CBASE 9-00 6 6— I*2 CINCR ° OT 13799900016 Leg CONEX 
Eee cae cians Ce ier ESS fey 
9 122 I*2 FOFSET 9-000000B6 I*2 FSIGN - *g FSIZ 2-00000000 Isg INP. | 
10-000000A8 I*2 INPLIN 10-000000A6 I*2 INPTR 9-0000051¢ I* LASL 9-00000216 Ig LEDSIZ | 
s$90sggat Ice RuMeeEN —G-BROODTOR HS3 AaMotR A HCRMMORADE TSB. hg St 
12- 4 I*2 MAR 10-0000019A I*2 MARPTR 12-0000 g¢ 1s2 MAS as 9-0000086E Ise ANGCN | 
9-0000086C I*2 NEGCNT 4-00000000 I*4 NUM 9-00000 I* 8811 9-0000052E Ieg OFSIZ 
9-00000330 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-0000000C Leg SMA 13299000120 Is2 SOF | 
5-00000004 L*2 STGEQL 5-00000006 L*2 STROK 11-00000002 I 1200000006 12 TAP 
-000000 5-0000001A L*2 TMPOUT 9-00000050 I*2 TOKTYP : 
3-00800908 te UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET | 
9-00000128 I*2 vSI2Z | 
ARRAYS | 
Address Type Name Bytes Dimensions | 
~Bo000196 Is ASteN tO) | 
= ® 
$-0000051£ I*2 BLBASE 162 (81) | 
10-0000019C I*2 BLIBUF 240 (120) | 
AP-00000008@ I*2 BLIDUM ee (*) 
9-00000662 I*2 BLINCR 162 (81) | 
6-0000017E I*2 BLSSIZ 20 (10) | 
9-00000308 I*2 BVALUE 162 (81) 
6-O00000EA I*2 BYTSIZ 20 (10) 
6-000001B4 I*2 COMGBL 12 (6) 
6-000000C4 I*2 COMMAS 4 (2) 
6-00000112 I*2 CONBAS 20 (10) | 
6-00000126 I*2 CONINC 20 (10) 
9-0000012C I*2 CONPRE 32 (16) | 
3-00000/a8 22 CONTE 198 (om) | 
' 
$-00000106 1sg CPAREN 4 (@) | 
6-000001D0 I*2 CPRCOM 6 (3) | 
gBeeeeace 153 GYAN 5 
= ® | 
6-00000025 sg DEFINI 20 (19) 
6-000001DE I*2 DOLBIT 26 (13) 
sieevuese 122 bovoe oy 
- | 
g-tnnooble 1:3 Bates? a 
- *2 DOLLAR 4 (2) 
Soe E pane i 
a 
oO 0p00b eS I*2 DOTEQS 1 (3) 
6-00000000 1s2 DOTMAC 22 (11) 
6-00000060 I*2 ENDMAC 18 (9) 
| 
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| 
| B2 #2 EQULST 1g «9) 
i*5 EQUTAB 12 (6) 
1*5 EXCLSP 16 0?) 
i*5 EXPCLO 4 (2) 
1*5 EXPOPN 4 (5) 
BB o1*2 FLDNAM 72 (36) | 
6 1e5 HYPHEN & 03) 
6-00000000 I* UF 166 (83) | 
@i*5  INPVAL oe te) 
I* LANHYP g (3) 
. Le] LINE 133 (133) 
é 13a [#2 LITTAB 18 (9) 
é isa [#3 MACTAB 16 (8) 
0-O00000AA [#3 MARBUF 240 (120) 
AP-0000000C@ 1*) MARDUM oe te) 
9-000005C0 1#) MRBASE 162 (81) 
9-00000704 [#2 MRINCR 169 (81) 
9-00000336 [#2 MVALUE 16 (81) 
3-0000010A L*l NAME 35 (32) 
* [#2 NEGSGN & (2) 
3-0000012A L*i NUMST 133 (133) 
6-000001DA I*2 OASIGN q (2) 
6-0000016A 1#2 OFFSET 20 (10) 
6-000001A2 1#3 ONESHF 6 (3) 
6-0000010E #2 OPAREN a (2) 
9-000002CE 1*> OSBNAM 32 (16) 
9-000002EE [#2 OTGNAM 35 (16) 
9-00000$0E #2 OUNTYP 35 (16) 
6-0000019A 1*2 PCTSEM 8 (4) 
3-00000085 L*l PREFIX 133 (133) 
9-00000052 I+2 PRENAR 32 (16) 
6-00000004 1*) RANHYP 6 (3) 
9-0000021A [#2 RSTLIN 180 (90) 
6-00000154 [#2 SEMSPC 6 (3) | 
6-000000FE #2 SPCSTG 4 (2) | 
6-000001A8 [#2 SPHYSP 8 (4) 
900000092 1#2 STRSTG 32 (16) 
6-00000072 I*2 SUFDEF 8 (4) 
$-00000072 1*2 SUFNAR 32 (16) 
6-0000014C 1*2 TABEQS 8 (4) 
6-000000CE I*2 TABLAN 6 (3) 
6-000001CA #2 TABOPR 6 (3) 
Sn ta se 
® 
g-o0g.0er 1:3 TABETS $B, | 
a 
sips 1 leet ‘eB 
@ 
é 238 [#2 UNDVLD 18 (9) | 
6 7A [#3 UNITYP q (2) 
6-00007192 1*2 ZEROSG 4 (3) 
6-000030A2 [#2 2RLAHY 10 (8) 
j 
L 


eee eee nn SSI — — 


Saree ipese 300-1382 iE 35: 2 Dtek ma Ast eR Rit 133° SRCIMDL32.FOR;1 fage et 
LABELS 
| e 500° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


| 
| 
Address Label 
ETOBLS ETOMAR MOVSTG 


a 
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3 $ 4 8 35: 6 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 ° 


C Version v02-001 


Coker eee eee eee A EEE E EEA e eee eee eee 


COPYRIGHT (c) 1980 
BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
C* ONLY IN ACCORDANCE WITH THE TERM F_ SUCH LICENSE oo? THE 


Seeeereee 


® 

® 

® 

® 

® 

® 

® 
PRO . 
C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
C* TRANSFERRED. + 
® 

C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
d 

® 

® 

*® 

*® 

® 

® 


C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
C* CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
C* SOFTWARE ON EQUIPMENT WHICH IS NOT SU®PLIED BY DIGITAL. 


C 
ace EI TIA T TIA i iii iii i iii iii ii fii ii iii iii ii iiitiiiiiiiiiiiciiiiiiiaiy: 
UTILITIES FOR MDL 


REVISION HISTORY: 
22-03-77 cP CHANGE GETLIN TO ACCEPT INPUT LINES 
FROM THE INPUT FILE OR FROM THE TMP 
FILE, DEPENDING UPON THE SETTING OF 
THE FLAG TMPIN. 


DWNAOVS WH "OOONOUSWN—O 
o 
8 


GOOOOOOOLN 


SS 


SUBROUTINE GETLIN 

INCLUDE 'SRC$:MDL32CMN.CMN' 
EQUIVALENCE (CINCNT, INBUF (1)) 
READS A LINE OF INPUT FILE = SETS ENDFILE IF EOF, COUNTS LINES 


IF (TMPIN) GOTO 300 

INPLIN = INPLIN+1 

READ (INP, 200, END=99,ERR=99) (INBUF(I),1=2,81) 
200 FORMAT (80A1) 

INCNT = 80 


DO 20 I=1 g0 
INBUF (82-1) ..NE.BLANK) GOTO 21 
NT = INCNT=1 

TINUE 

NT = INCNT+1 
UF CINCNT #2) 
TR = 2 


Www POPOPOPORIPIPOPONY 2 tt 


( 
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ee ee Sse 
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= EOLCH 


oN tE5S5- 


TINUE 
(DEBUG) TYPE 1000 
MAT (° inf OF FILE") 


PAPAIN 
DWNOUE wh — 
DM RKO TD ee Oe 
—mnm MmZOnm 


—< 


NTO THE TEMPORARY I2 AND THEN MOVE 
ECAUSE OF A BUG IN THE FORTRAN-10 
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-Sep-1 KSVMSMASTER: Fat 33° SRCIMDL32.FOR;1 
OPTIMIZER. 
$00 READ (TMP END= 399, ERR= =399) 12 2, 
({nBuF (1) 
INBUF (1) = 12 


INP 2 
INBUF CINCNT #2) = EOLCH 
RETURN 


3 
+ 


- TRUE. 
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| 1 
GETLIN 1§-Sep-19 4 01:30:83 VAX=-11 FORTRAN ET P 
| -$ep-1984 01:57:26 DISKSVMSMASTER: LMDL32.SRCIMDL32.FOR; 1 | 
PROGRAM SECTIONS of 
| Name Bytes Attributes | 4 
0 $coD 286 PIC CON REL LCL SHR EXE RD NOWRT LONG 01 
| 1 SPDATA PIC CON REL LCL SHR NOEXE RD NOWRT LONG 01 
é SLOCAL 16 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 01 
TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG 01 
& VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
5 LOG 39 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
8 CHECKS é PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 42060 
ENTRY POINTS 
Address Type Name 
0-00000000 GETLIN 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 1*4 BINVAL 14-90000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
2-00000002 1s2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-"900016C I*2 CBASE -0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
8-00000000 I*2 DEBUG 00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 1g ERR -00000002 Leg ERROR 3-90000006 L*2 ERROU 3-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET -90000086 I*2 FSIGN 9-000000B4 I*2 FSIZ 2-0000000 I*2 | 
8-0000000¢ I*2 12 10-00000000 I*2 INCNT 12-00000000 I*2 INP 10-000000A8 I*2 INPLIN 
10-000000A6 I*2 INPTR 3-0000031¢ I*2 LASLIN 9-00000216 I*2 LFDSIZ 4-Q0000000A I*2 LINELEN 
9-00000126 I*2 LINTYP 9-00000218 I*2 LPTR 9-00000214 I*2 LSBSIZ 12-00000004 I* AR 
10 19A I*2 MARPTR 12-00000 o¢ I*2 MAS 3-09000 — I*2 MNGCNT 3-0000086¢ 1*2 NEGCNT 
4-00000000 1*4 -00000334 I*2 OBBITS 9-00000 F I*2 OFSIZ 9-00000 I*2 OUNSIZ 
5-00000018 L*2 POSOFF 3-0 96 06 L*2 SMASK 9-000 oi I*2 SOFSET 3-90000004 L*2 STGEQL 
5-00000006 L*2 STROK 11- ; I*2 TAB 12-00 006 I*2 TMP 5-0000001C L* MPIN 
5-0000001A L*2 TMPOUT 9-00000050 I*2 TOKTYP 12-000 900A I*2 TTY 5-00000008 Leg UNDOK 
9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMAS 9-00000124 I*2 VOFSET 9-00000128 I*2 vSI2 
ARRAYS 
Address Type Name Bytes Dimensions 
6-000000DA I*2 AMASK 4 (2) 
6-00000196 I*2 ASIGN 4 (2) | 
9-0000051E I*2 BLBASE 168 (81) 
10-0000019€ I*2 BLIBUF 240 (120) 
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GETLIN 16-Sep-1984 01:57:23 VAX=11 FORTRAN V3.4=-56 Page 214) 
g- 900-1384 81:35:83 DI SKSVMSMASTER: (MOL 32, SRCIMDL32. FOR: 1 ° | 
| 1*2 RSTLIN 180 (90) | 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) | 
I*2 SPHYSP (4) 
| I*2 STRSTG 32 (16) | 
I*2 SUFDEF (4) 
I*2 SUFNAM 32 (16) 
I*2 TABEQS (4) 
I*2 TABLAN 6 tt 
I*2 TABOPR 8 (3) 
I*2 TABPRN 1 (5) 
I*2 TABRAN 6 (3) 
I*2 1ABSTG 4 (2) 
I*2 TAGNAM 5 (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
l*2 UNITYP 4 (3) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address Label Address Label Address’ Label Address’ Label 
ee 20 0-00000086 21 0-000000A7 99 1-00000000 200° O-O00000AF 300 0-00000116 399 


ee 1000° 
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-Sep-1984 DISKSVMSMASTER: Ymoe33° SRCIMDL32.FOR;1 


0001 ~«¢ REVISION HISTORY 
900¢ C 22-03-77 cP ADD PLUS AND MINUS AS TOKEN TYPES. 
9004 SUBROUTINE GETTOK 
9006 C RETURNS A TOKEN = AND IDENTIFIES IT IN TOKTYP 
9008 INCLUDE "SRC$:MDL32CMN.CMN® 
110 INTEGER TERM(7) ,TTYB(7) 
0111 EQUIVALENCE (TC, TOKSTG(1)) 
Org DATA TERM/' PP | tet ty? "+, ta'/ 
us DATA NTERN, fT/P/7- SEMI, COMMA, EOL ,LANGLE.RANGLE ,PLUS -MINUS/ 
! 
0115 ~¢ 
0116 C SKIP LEADING BLANKS OR TABS 
0118 K = INPTR 
0119 L = INBUF(1) + 1 
0120 IF (Kk St. at} 60 TO 12 
0121 DO 10 INP 
die IF CCINBUF CINPTRD « NE .BLANK) AND. (INBUF (INPTR).NE.TAB)) GOTO 12 
012 10 CONTINUE 
0124 
0125 ¢ LINE WAS EMPTY 
0126 «OC 
0127. ~—s ‘12 T= 0 
0128 TP = 2 
0129 «15 CHAR = INBUF (INPTR) 
0130 TOKSTG(TP) = CHAR 
0131 TC = TC+#1 
013¢ TP = TP+1 
013 INPTR = INPTR+1 
0134  C CHECK FOR TERMINATORS 
0135 20 I=1,NTERM 
0136 =. 20 IF CTERMCIS EQ. CHAR) GOTO 50 
0137 DO 22 I1=1,NTERM 
0138 =. 22 IF (TERMI). EQ. INBUF (INPTR)) GOTO 30 
0139 ; IF (CINBUF (INPTR) .NE.BLANK) .AND. (INBUF (INPTR).NE.TAB)) GOTO 15 
gi4i C FINISHED , CLASSIFY STRING 
b148 30 LF (<TOKSTG(2). GE."A‘) AND. (TOKSTG(2).LE."Z')) TOKTYP = ALPHA 
0144 IF ((TOKSTG(2) .£Q.°$") OR. (TOKSTG(2).£0.*_')) TOKTYP = ALPHA 
0145 IF ((TOKSTG(2) .GE.'O") AND. (TOKSTG(2).LE.°9")) TOKTYP = NUMBER 
0146 RETURN 
0147 50 1 Me = TTYP(]) 
0148 RET 
0149 


a 
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-Sep-1984 01:57: DISKSVMSMASTER: CMDL32.SRCIMDL32. FOR; 1 
PROGRAM SECTIONS 
! Name Bytes Attributes 
0 SCODE 321 PIC CON REL LCL EXE RD NOWRT LONG 
¢ SLOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG se PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4260 
ENTRY POINTS 
Address Type Name 
0-00000000 GETTOK 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 iss BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 <6 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 2-00000024 I*2 CHAR 9-0000016E I*2 4-00000004 I*2 COL 
5-00000016 L*2 CONEXP 8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 
1 I*2 EOLCH 12-00000008 I*2 ERR 5-00000002 L*2 ERROR 5-O000000E L*2 ERROUT 
5-00000010 L*2 FLDLAS 9-00000122 I*2 FOFSET a 444 I*2 FSIGN 9-00000084 15 FSIZ 
2-00000026 I*2 I 12-00000000 I*2 INP 10-000000A ss INPLIN 10-Q00000A6 I*2 INPTR 
2-O000001E I*2 K $- 800001 5e I*2 L 9-0000051C I*2 LASLIN 9-00000216 iss LFDSIZ 
4-0000000A I*2 LINELEN 9-00000126 I*2 LINTYP 9-00000218 iss T 9-00000214 I*2 LSBSIZ 
12-00000004 I*2 MAR 10-0000019A I*2 MARPTR 12-0000000C I* S 4 48 8 ss MNGCNT 
aes elai a 2 45 I*2 NEGCNT a4 4b I*2 NTERM 4-00000000 I*4 NUM 9-00000334 I*2 OBBITS 
9-0000032E I*2 OFSIZ 9-00000330 I*2 OUNSIZ 5-00000018 L*2 POSOFF 5-Q0000000C L*2 SMASK 
9-00000120 1%$ SOFSET 44 444 L*2 STGCQL ah L*2 STROK bess 4 F 3 It AB 
I*2 TC 12-000 898 I*2 TMP 5-0000001C L*2 TMPIN 5-Q0000001A L*2 TMPOUT 
9-00000050 I*2 TOKTYP 44 44 443 i*2 TP 12-O0000000A I*2 TTY 5-00000008 L*2 UNDOK 
9-000000B2 I*2 UNISIZ -0000000A L*2 VMASK 9-00000124 I*2 VOFSET 9-00000128 I*2 vSI2 
ARRAYS 
Address Type Name Bytes Dimensions 
6-000000DA is AMASK 4 (2) 
6-00000196 I*2 ASIGN 4 (2) 
9-0000051E 1s BLBASE 166 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
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1984 01:57:23 VAX=11 FORTRAN V3.4-56 Page 218 
-1984 $1:87:58 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 — 


1*2 RSTLIN 180 (90) OC 
I*2 SEMSPC 6 (3) 00 
I*2 SPCSTG 4 (2) 00 
I*2 SPHYSP (4) 01 
I*2 STRST 32 (16) 01 
I1*2 SUFDEF (4) 01 
I*2 SUFN 32 (16) 01 
I*2 TABEQS (4) | 01 
I*2 TABLAN 6 (3) 01 
I*2 TABOPR 6 (3) 01 
It? TABPRN 10 (5) 01 
1*2 TABRAN 6 (3) 01 
I*2 TABSTG 4 (2) 01 
I*2 TAGNAM 32. (16) | 01 
I*2 TERM 14 (7) 01 
1*2 TMPVAL 162 (81) 91 
I*2 TOKSTG 80 (40) 01 
]* TYP 14 (7) 
I*2 UNDVLD 18 (9) 
1*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) PR 
| 
Address Label Address Label Address Label Address Label Address Label Address Label 
te 10 0-00000054 12 0-0000005E 15 +e 20 we 22 0-O00000EF 30 | 
0-00000133 50 | 
1 
1 
| 1 
EN 


vi 


2 
16-Sep-1984 01:57:23 
5-Sep-19 4 EEE: 


INTEGER FUNCTION INTVAL(S) 
; RETURNS THE DECIMAL INTEGER VALUE OF A STRING 


ed FY INTEGER (A=Z) 
INTEGER S(*) 


B38 


B382 


000 INTEGER NUM(10) 

0008 DATA NUM/'O',‘1°,*2° db iy “4° “g* "6" ‘7* ‘g' '9 / 
0009 C 

0010 x = 0 

0011 DO 10 I = 1,8(1) 

pots C = $(i+1) 

001 C TO BE Seely OF SYSTEM COMPARE CHARS 
0014 DO 20 N=1,10 

0015 IF (C.EQ.NUM(N))GOTO 30 

0016 C ILLEGAL CHAR 

0017 INTVAL = 1 

0018 RETURN 

0019 C 

0020 30 X = 10*X + (N=1) 

poss 10 CONTINUE 

00 ; INTVAL = X 

002 RETURN 

0024 END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 110 PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLOCAL 54 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 164 
ENTRY POINTS 
Address Type Name 
9-00000000 I*é INTVAL 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
2-00000018 I*2 2-00000016 I*2 | 2-0000001A I*2 N 
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DISKSVMSMASTER: 
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Address 
2-00000014 


Type Name 
I*2 XxX 
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1$-se0-1944 Bh:85:8e | PE SymGmas Ten: PROC 3S SRCIMDL32.FOR:1°9 220 


INTVAL 


ARRAYS 
Address Type Name Bytes Dimensions 
AS RRREBBBES 133 2 ay 
LABELS 
Address Label Address Label Address Label 


e 10 ee 20 0-00000052 30 


H 2 
1 ~Se0n 1986 1:57:23 
-Sep-1984 01:57:26 


9091 : SUBROUTINE GETEXP(P) 
$008 C PTR => START OF AN EXPRESSION 
Boe 3 RETURN WITH IT POINTING TO THE LAST CHAR OF THE EXPRESSION 
see , INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
0109 C GO FORWARDS UNTIL EITHER EOL, COMMA, OR ; IS SEEN 
0110 C THEN BACK UP OVER BLANKS OR TABS AND POINT TO 
gti 3 THE LAST NONBLANK/NONTAB 
0118 Ze 10 I=P, INBUF (1)+1 
0115 TF CCINBUE (1D ett en .OR. 
0116 CINBUF (I). €0.',")) GOTO 20 
0117 10 CONTINUE 
0118 20 IF (K .EQ. P) GOTO 40 
0119 K = K=1 
0120 Ki = K 
0121 DO 25 I=1,K1 
b1S§ BA pal (K) -NE.BLANK) .AND. (INBUF(K).NE.TAB)) GOTO 30 
0124 25 CONT INUE 
0125 30 P=K 
0126 40 RETURN 
0127 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 143 PIC CON REL LC SH EXE RD NOWRT 
§ SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT 
TEXT 431 PIC OVR REL GBL SH XE RD WRT 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT 
Total Space Allocated 4050 


ENTRY POINTS 
Address Type Name 
0-00000000 GETEXP 


VAX=-11 FORTRAN 
DISKSVMSMASTER: 


-56 
MDL32.SRCIMDL32.FOR; ? 


GETEXP 


VARIABLES 
Address Type 


6- 
12-00000002 I* 
a: 6C 


ARRAYS 
Address Type 


Name 
BINVAL 
B 


Address Type Name 


11- 48 Q I*2 BLANK 
10-0000028C I*2 BLIPTR 
9-Q000016E I*2 CINCR 
- 0001 L* ENDEXP 
- 8 02 L*2 ERROR 
- 8 B6 I*2 FSIGN 
10-Q00000A8 I*2 INPLIN 
=80080 \f I*2 LASLIN 
- 1 I*2 LPTR 

12-00000 of I*2 MAS 
9-00000334 I*2 OBBITS 
5-00000018 L*2 POSOFF 
5-00000006 +6 STROK 
5-0000001A L*2 TMPOUT 
9-00000082 I*2 UNISIZ 

Bytes Dimensions 
4 (2) 
4 (3} 
162 (81) 
240 (120) 
162 (81) 
20 (10) 
162 (81) 
20 (10) 
12 (6) 
4 (2) 
20 (10) 
$3 (10) 
2 (16) 
32 (16) 
198 (9, 11) 
4 (@s 
6 (3) 
196 (81) 
(10) 
0 (10) 
6 (13) 
3 (14) 
1 (6) 
24 (12) 
12 (6) 
4 (2) 
Hs 
16 (3) 
22 (11) 
1 (9) 


2 
ig-sSe0-1986 8 


Address 
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wake e ee aka ®t 
COOCOCOOCOOOOOOCOOoOO 
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COOOCOCCCOOSBOOCOoOOoooO 
COOCOCCOOOCOOOCOoOOoOOoOOoO 
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20:83 VAX-11 FORTRAN 

7:57:26 DISKSVMSMASTER 

Type Name Address 
I*2 BLBITS 9-00000332 
L*2 BLKOUT 9-0000012A 
I*2 COL 5-00000016 
L*2 ENDFIL 11-00000004 
L*2 ERROUT 5- 38 001 
I*2 FSIZ $- 8 0 
183 LEDSIZ 40000000 
Ie5 LSpsiz 13-00000004 
I*2 MNGCNT 8 bobo RSS 
I*2 OFSIZ 9-00000330 
L*2 SMASK ass 54 9 4 
I*2 TAB $444 6 
I*2 TOKTYP 12-0000000A 
L*2 VMASK 9-00000124 


Ye toe 
:CMDL32.SRCIMDL32.FOR; 1 


Type Name 
I*2 BLFOFS 
I*2 BOFSET 
L*2 CONEXP 
I*2 EOLCH 
L*2 FLDLAS 
I*e2 | 
I*2 K 
I*2 LINELE 
It MAR 
I*2 NEGCNT 
I*2 OQUNSIZ 
I*2 SOFSET 
I*2 TMP 
I*2 TT 


TTY 
I*2 VOFSET 


Page 222, 


J 2 | 
GETEXP 16-Sep-1984 01:57:23 VAX=11 FORTRAN V3.4-56 P 3 
g-900-1382 Ot: 30:83 DISKSVMSMASTER: EMOL 32° SRCIMDL32.FOR: 179° - 


I*2 EQULST 18 (9) 
I*2 EQUTAB 1 (9) 
I*2 EXCLSP 14 (7) 
I*2 EXPCLO 4 (2) 
I*2 EXPOPN 4 (2) 
I*2 FLDNAM 72 (36) 
I*2 HYPHEN 4 (2) 
I*2 INBUF 166 (83) 
I*2 LANHYP § (3) 
L*] LINE 133 (133) 
I*2 LITTAB 18 (9) 
I*2 MACTAB 16 (8) 
I*2 MARBUF 240 (120) 
I*2 MRBASE 162 (81) 
I*2 MRINCR 162 (81) 
I*2 MVALUE "9 (81) 
L*l NAME (32) 
I*2 NEGSGN 4 (2) 
L*} NUMSTR 133 (133) 
I*2 OASIGN 4 (2) 
I*2 OFFSET 20 (10) 
I*2 ONESHF 6 (3) 
I*2 OPAREN 4 (2) 
I*2 OSBNAM 35 (16) 
I*2 OTG 2 (16) 
I*2 OUNTYP 32. (16) 
I*2 PCTSEM : (4) 
L*l PREFIX 133 (133) 
3s PRENAM 32. (16) 
I*2 RANHYP 6 (3) 
iss RSTLIN 180 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
iss SPHYS 8 (4) 
I*2 STRSTG 32 (16) 
I*2 SUFDEF 8 (4) 
is SUF 32 (16) 
I*2 TABEQS 8 (4) 
I*2 TABLAN 6 (3) 
I*2 TABOPR 6 (3) 
I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
I*2 TAGNAM § (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
I*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (2) 
I*2 ZRLAHY 10 (5) 


GETEXP 1E-sep-1984 01:30:83 VAX-11 FORTRAN 


LABELS 
Address Label Address Label Address Label Address Label Address Label 
ee 10 0-00000044 20 hel 25 0-00000089 30 0-0000008E 40 


6 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 
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Ig-$e 1984 01:57:23 VAX=11 FORTRAN V3.4-56 P 
30p-138c 1:35:58 DISKSVMSMASTER: LMDL 32. SRCIMDL32. FOR; 1 


age 225 


0001 | 
999 SUBROUTINE PUTMAR(CS) 

INCLUDE 'SRC$:MDL32CMN.CMN/NOLIST® | 
a9 INTEGER CS(*) | 
o107 C PUTS COUNTED STRING INTO THE BUFFER (AT THE END) 

0109 K = MARBUF (1) 

0110 L = €$(1) 
0111 DO 10 1=1,L 

Oig 10 MARBUF (K+{4+1)=CS(1+1) 

011 MARBUF (1) = K¢L 
0114 

0115 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 90 PIC CON REL LCL SHR EXE RD NOWRT LONG 
4 SLOCAL $8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 STG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR N RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4017 
ENTRY POINTS 
Address Type Name 
0-00000000 PUTMAR 1 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name | 1 
4-00000006 I*4 BINVAL 11- 0000000 I*2 BLAN 9-0000021 I*2 BLBITS sa 4 4 EE I*2 BLFOFS | 
12-00000002 I*2 BLI 10- i$ C I*2 BLIPTR 5- it 12 L*2 BLKOUT 3-886 12A I*2 BOFSET 
9-0000016C I*2 CBASE 9- 16—€ I*2 CINCR 4- I*2 COL 5- 4 16 L*2 CONEXP 
I*2 DEBUG 2 14 L*2 ENDEXP - 0 L*2 ENDFIL 11- bf I*2 EOLC 
1 I*2 ERR - 02 L*2 ERROR - f L*2 ERROUT - 0 L*2 FLDLAS 
I*2 FOFSET 9- § I*2 FSIGN - BS I*2 FSIZ - Se I*2 | 
12-00000000 I*2 INP 10- bp AS I*2 INPLIN 10- *9 I*2 INPTR - 0 I*2 K 
-00000002 I*2 L 9- 1C I*2 LASLIN -00 1 I*2 LFDSIZ 4-Q000000A I*2 LINELEN | 
| 
| 
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1B-Sep-1 984 01:57:25 VANe11 FORTRAN age 228 


PEt ie P 
Sep-1984 01 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 


0001 SUBROUTINE SES? 
0002 INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
bio¢ ‘ INTEGER CS(*) 
Bige : PUTS COUNTED STRING INTO THE BUFFER (AT THE END) 
0108 K = BLIBUF (1) 
a4 L = CS$(1) 
110 DO 10 I=1,L 
0111 10 BLIBUF (K+i+1)=CS(141) 
Bii¢ BLIBUF(1) = Ké4L 
011 RETURN 
0114 END 
| 
} 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 $COD 90 PIC CON REL LC H EXE RD NOWRT LONG | 
¢ SLOCAL § PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GB HR NOEXE RD WRT LONG 
& VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4017 
ENTRY POINTS 
Address {ype Name 
0-00000000 PUTBLI | 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000 1s I*2 BLBITS 9-00000332 I*2 BLFOFS 
le-popentee I*2 BLI 10-0000028C I*2 BLIPTR ram 4444 1 L*2 BLKOUT ms 4's A I*2 BOFSET 
16C I*2 CBASE 9-0000016E I*2 CINCR re 000004 I*2 COL 5-00000016 L*2 CONEXP 
-00000000 I*2 DEBUG 5- 3 0014 L*2 ENDEXP 2 i bee L*2 ENDFIL 11-00000004 I* LCH 
1 me sistit es I*2 ERR 5-00000002 L*2 ERROR -QO00000E L*2 ERROUT 5-00000010 L*2 FLDLAS 
122 I*2 FOFSET 9- Bp 00B6 I*2 FSIGN 9- it 0B4 I*2 FSIZ Smt 4 ed I*2 1 1 
tessa *2 INP <* pene I*2 INPLIN 10- 4 OO0A6 I*2 INPTR -00 4444 Ite K 
§ 2 I*e2 L - : bp \f I*2 LASLIN 9-00000216 I*2 LFDSIZ 4-QQ000000A I*2 LINELEN 
00000126 I*2 LINTYP 9- 21 I*2 LPTR 9-00000214 I*2 LSBSIZ 12-00000004 I*2 MAR 


3 
PUTBLI ep-1984 01:57:23  VAX=11 FORTRAN V3.4-56 Page 229 
Con 1obe 01587158 DERRSUNGGAS TEN: FRC 3>° SRCIMDL32.FORS1° 7" | 
10-0000019A I*2 MARPTR 12-0000000¢ I* 9- 1*2 MNGCNT 9- 1*2 WEGCNT 
4-00000000 i*4 NUM . 09 Of HSS BaSits 3-088 08 E Ise OFSI2 9- p 6 $65 155 (NEGcHT 
0018 L*2 POSOFF " Led SMASK 00000190 I*> SOFSET " 04 Led STGEQL 
BOOTR ts EMPocT either ae 1$=90000008 is3 trv atti nF tes UNDOK 
00000082 [*) UNISIZ 5-0000000A L*> VMASK =00000124 #3 VOFSET 9-00000128 [#2 VSIZ 


ARRAYS 
Address Type Name Bytes Dimensions 


6-000000DA I*2 AMASK 4 (2) 
6-00000196 I*2 ASIGN 4 (2) 
9-0000051E I*2 BLBASE 162 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
9-00000662 I*2 BLINCR 162 (81) 
6-0000017E I*2 BLSSIZ 20 (10) 
9-000003D8 I*2 BVALUE 162 (81) 
6-O00000EA I*2 BYTSIZ 20 (10) 
6-000001B4 I*2 COMGBL 12 (6) 
6-000000C4 I*2 C & (2) 
6-00000112 I*2 C 20 (10) 
6-00000126 I*2 CONINC 20 (10) 
9-0000012C I*2 CONPRE 2 (16) 
9-0000014C sg CONTAG 32 (16) 
9-000007A6 I*2 CONTEX 198 (9, 11) 
6-000001D6 I*2 CPAREN 4 (2) 
6-000001D0 I*2 CPRCOM 6 (3) 
-00000004a I*2 CS ee (®) 
9-00000170 I*2 CVALUE 162 (81) 
6-0000004C I*2 DEFEND 20 (10) 
6-00000022 I*2 DEFINI 20 (10) 
6-000001DE I*2 DOLBIT 26 «(13) 
6-000001F8 I*2 DOLBYT 28 (14) 
6-00000036 I*2 DOLDEF 12. (6) 
6-00000214 I*2 DOLFLD 24 (12) 
6-00000016 I*2 DOLGBL 12 (6) 
6-00000234 I*2 DOLLAR 4 (2) 
6-00000090 sg DOLVLD 18 (9) 
6-O000000DE I*2 DOTBLK 12 (6) 
6-00000042 I*2 DOTEQS 10 (5) 
g-B93000e8 1:3. Enonae 3) | 
. i 
S-p0nbb082 f=3 Fours 18 (9) | 
6-00000102 I*2 EQUTAB 12. (6) 
6-0000007E I*2 EXCLSP 14 (7) 
6-00000230 I*2 EXPCLO 4 (2) 
6-0000022C I*2 EXPOPN 4 (2) 
$-00000180 [23 NYPHEN 3S 
€ 
18-00000000 {23 INBUE 166 ($3) 
g C8 I*2  LANHYP $ (3) 
Lel LINE 133 (133) 
6-0000013A I*2 LITTAB 18 (9) 
-0000015A Ie CTAB 16 (8) 
10-O090000AA I*2 MARBUF 240 (120) 


Page 230 


PUTBLI 16-Sep-1984 01:57:33 VAX=11 FORTRAN ¥3.4356 
-Sep-1984 01:57:26  DISKSVMSMASTER:(MDL32.SRCIMDL32.FOR;1 
9-000005 0 I*2 MRBASE 162 (81) 00 
9 I*) MRINCR 162 (81) 00 
336 1*2 MVALUE 1 (81) 8 
10A L* E (32) 00 
I¥2 NEGSGN 4 (2) 80 
3 12A Le ST 133 (133) o8 
6 1DA I*2 OASIGN 4 (2) oY 
6-0000016A I*2 OFFSET 20 (10) ; 
6-000001A2 I*2 ONESHF 6 (3) 4 
6-0000010E I*2 OPAREN 4 (2) | ot 
S-aooosee 1:8 Siena at a: 
® | 
3-$0900 £ I*2 OUNTYP (16) 01 
-0000019A I*2 PCTSEM (4) 01 
00000085 L*l PREFIX 133 (133) | 01 
52 I*2 PRENAM 32 (16) 01 
6-00000004 I*2 RANHYP 6 (3) 01 
9-0000021A I*2 RSTLIN 180 (90) 01 
6-00000154 I*2 SEMSPC 6 (3) 01 
6-O00000FE I*2 SPCSTG 4 (2) 
6-000001A8 I*2 SPHYSP B (4) 
9-00000092 I*2 STRSTG 32. (16) 
6-00000072 I*2 SUFDEF 8 (4) | 
9-00000072 I*2 SUFNAM 32. (16) 
6-0000014C I*2 TABEQS 8 (4) 
6-O00000CE I*2 TABLAN 6 (3) 
6-000001CA I*2 TABOPR 6 (3) 
6-000001CO0 I*2 TABPRN 10 (5) 
6-O00000AC I*2 TABRAN 6 (3) 
6-0000008C I*2 TABSTG 4 (2) 
9-00000100 I*2 TA 32 (16) 
9-00000467A I*2 TMPVAL 162 (81) 
9-00000000 I*2 TOKSTG 80 (40) 
6-00000238 I*2 UNDVLD 18 (9) 
6-0000007A I*2 UNITYP 4 (2) | 
6-00000192 I*2 ZEROSG 4 (2) 
6-000000A2 I*2 ZRLAHY 10 (5) 
LABELS 


Address Label 
ee 10 
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VAX=11 FORTRAN V3.4 


-56 
DISKSVMSMASTER: (MDL32.SRCJMDL32.FOR; ‘ 


0001 puny Ie pyre sOm. BUF ) 
000 C OUTPUTS BUF A ie 
000 INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST' 
010 INTEGER BUF (*) 
01 C 
010 C 
0108 IF (BUF (1).GT.1 
0109 of LOU cc) ott EOLA) GOTO 20 
0110 WRITE CCHN,101) 
Q111 101 FORMAT () 
Big GOTO 30 
ae 0 WRITEC(CHN,100) (BUF(I),1=2,B8UF(1)+1) 
114 00 FORMAT(1X,120 
0115 30 BUF(1) = 6 
0116 BUF (2) = EOLCH 
9117 RETURN 
0118 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 146 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL $ PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
3 TEXT 451 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4077 
ENTRY POINTS 
Add:ess Type Name 
0-00000000 OUTBUF 
VARIABLES 
Address Type Name Address Type Name Address Type Name 
4 I*4 BINVAL 11-00000000 I*2 BLANK 9-0000021 I*2 BLBITS 
0088888 Ics. Bl lcfananege 33 shame, SHBRARIZ B.S 
9-0000016C I*2 CBASE AP- 42a I*2 CHN 9-0000016E I*2 CINCR 
5-00000016 L*2 CONEXP 8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 
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VAX=11 FORTRAN 
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000000C8 I*2 LANHYP (3) 
3- O L*1 LINE 138 (133) 
60000013 I*2 LITTAB 1 (9) 
8 15A I*2 MACTAB 16 (8) 

1 AA I*2 MARBUF 24 (120) 
$-00000704 Is BRINCR 185 (BI) 
o 
ar I*2 MVALUE . (81) 
-Q000010A Ll NAME (32) 
-00000000 I*2 NEGSGN 4 (2) 
3-0000012A L*1 NUMST 133 (133) 
6- 1DA I*2 OASIGN 4 ts) 
6 16A I*2 OFFSET 20 (10) 
6-000001A2 I*2 ONESHF 6 (3) 
6-0000010E I*2 OPAREN 4 (2) 
9-000002CE ss SBN. 3s (16) 
9-Q00002EE I*2 OTGNAM 3 (16) 
9-0000030E iss UNTYP 32 (16) 
-0000019A I*2 PCTSEM : (4) 
-00000085 L*l PREFIX 13 (133) 
9-00000052 I*2 PRENAM 32. (16) 
-00000004 I*2 RANHYP 6 (3) 
9-0000021A I*2 RSTLIN 180 (90) 
6-00000154 I*2 SEMSPC 6 (3) 
6-OQ00000FE I*2 SPCSTG 4 (2) 
6-000001A8 es SPHYSP 8 (4) 
Fan sisi $4 I*2 STRSTG 32 (16) 
6-00000072 I*2 SUFDEF 8 (4) 
9-00000072 I*2 SUF 32 (16) 
6-0000014C ss TABEQS 8 (4) 
6-OQ00000CE I*2 TABLAN 6 (3) 
6-000001CA I*2 TABOPR 6 (3) 
6-000001CO I*2 TABPRN 10 (5) 
6-OQ00000AC I*2 TABRAN 6 (3) 
6-0000008C I*2 TABSTG 4 (2) 
9-00000100 I*2 TAG 32 «(16) 
9-0000047A I*2 TMPVAL 162 (81) 
9-00000000 I*2 TOKSTG 80 (40) 
6-00000238 I*2 UNDVLD 18 (9) 
6-0000007A I*2 UNITYP 4 3} 
6-00000192 I*2 ZEROSG 4 (2) 
6-000000A2 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address’ Label Address Label 


0-00000042 20 0-00000082 30 


1-00000001 


100° 1-00000000 101° 
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16-Sep-1984 01:57:23 VAX=-11 FORTRAN e 234 
g- 8ep- 1984 Ot 3h 383 DISKSVMSMASTER: Hat 33° SRCIMDL32.F OR: 1 (29 
0001 
9008 ¢ 
000 SUBROUTINE QUTMAR 
C OUTPUTS THE MARS BUF 
5 INCLUDE 'SRCS: ROLS2cHW, CMN/NOLIST' 
0107 CALL aQUTBUF (MAR, MARBUF 
0108 RETU 
0109 he 
PROGRAM SECTIONS | 
Name Bytes Attributes oo 
0 SCODE 17 PIC CON REL LCL XE RD NOWRT LONG 00 
é SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 00 
TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG 00 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
SL 30 PIC OVR REL GX SHR NOEXE RD WRT LONG 00 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
7 ST 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
8B CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 00 
10 FILES 654 PIC OvR REL GBL SHR NOEXE RD WRT LONG 00 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 00 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG a 
Total Space Allocated 3928 at: 
01: 
ENTRY POINTS | ot. 
Address Type Name 3. 
0-00000000 OUTMAR | ot 
01. 
VARIABLES 01. 


Address Type Name Address Type Name Address Type Name Address Type Name 


Ri 44414414 I*4 BINVAL 
12-00000002 i*2 BLI 


8 I*2 DEBUG 
12-00000008 I*2 ERR 
9-00000122 I*2 FOFSET 
10-000000A8 I*2 INPLIN 
4-0000000A I*2 LINELEN 
"$-o000086¢ 12 NEGCNT 
* 
900000380 I= QUNSIZ 
-00000004 L*2 STGEQL 
-0000001C L* MPIN 
00000008 L*2 UNDOK 


11- -80000 be I*2 BLANK 
10-00000 I*2 BLIPTR 
9- m4 9b I*2 CINC 
5-00000014 L*2 ENDEXP 
ae sss atg L*2 ERRO 
9-000000B6 I*2 FSIGN 
10-000000A6 I*2 INPTR 
9- 4 SE I*2 LINTYP 
10-0000019A I*2 MARPTR 
4- 8° $808 I*4 NUM 
5-00 18 L*2 POSOFF 
-00000006 L*2 STROK 
-0000001A L*2 TMPOUT 
9-00000082 I*2 UNISIZ 
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BLBITS 
BLKOUT 
co 


L 
ENDFIL 
ERROUT 


FSIZ 
LASLIN 
LPTR 


MAS 
OBBITS 
SMASK 
TAB 
TOKTYP 
VMASK 
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I*2 BLFOFS 
I*2 BOFSET 
L*2 CONEX 
I*2 EOLCH 
i*2 FLOLAS 
I*2 INP 


TT 
I*2 VOFSET 
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£epn ORs B1:8:5— Ba ecduncaneten: PROCS SRCIMDL32.FOR:1°%" < 


9-00000128 I*2 vSIZ 


ARRAYS 
Address Type wAame Bytes Dimensions 

6-000000DA I 4 (2) 

6-00000196 I*2 ASIGN 4 (0) 

9-O000051E I*2 BLBASE 368 (81) 
19-9000) 96 Ie? BLIBUF 240 (120) 
9 I*2 BLINCR 198 (81) 
g 1 3 I*2 BLSSIZ (10) 

308 I*2 BVALUE 162 (81) | 
6-O00000EA I*2 BYTSIZ 20 (10) | 
6-000001B4 I*2 COMGBL 12 (6) 

~000000C4 I*2 C 4 (2) | 
6-00000112 I*2 CONBAS 20 (10) 
6-00000126 I*2 CONINC ¢9 (10) 
9-0000012C I*2 CONPRE é (16) 
9-0000014C I*2 CONTAG 32 (16) 
9-000007A6 I* TE 198 (9, 11) 
6-000001D6 I*2 CPAREN 4 (@ | 
6-000001D0 I*2 CPRCOM 6 (3) 
9-00000170 I*2 CVALUE 162 (81) 
6- C I*2 DEFEND 20 (10) | 
6- 22 I*2 DEFINI 20 (10) 
6-000001DE I*2 DOLBIT 26 (13) | 
6-000001F8 I*2 DOLBYT 28 (14) | 
6-00000036 I*2 DOLDEF 12 (6) 
6-00000214 I*2 DOLFLD 24 (12) 
6-00000016 I*2 DOLGBL 12 (6) 
6-00000234 I*2 DOLLAR 4 (2) 
6-00000090 sg DOLVLD 18 (9) 
6-000000DE I*2 DOTBLK 12 (6) 
6-00000042 I*2 DOTEQS 10 (5) 
6-00000000 I*2 DOTMAC 22 (11) 
6-G0000060 Is§ ENDMAC 18 (9) 
6-000000B2 I*2 EQULST 18 (9) 
6-00000102 I*2 EQUTAB 12 (6) 
6-00000280 [+2 EXPCLO % 
® 
SCR Be 4 
6-00000180 [+3 HYPHEN i 
10-00000000 I*2 INBUF 166 (83) 
a sisi 44 I*2  LANHYP § (3) 
Lei LINE 133 (133) 
6-0000015A I*2 LITTAB 18 (9) 
18-0000008A 123 RARBUF 249 (120) 
9-000008¢0 I*2 MRBASE 162 (81) 
9 206 I*2 MRINCR 162 (81) 
336 I*2 MVALUE, 162 (81) 
10A L*l NAME 32 (32) 
1*2 NEGSGN 4 (2) 
3-0000012A L*l NUMSTR 133. (133) 
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SUBROUTINE OUTBLI 
C OUTPUTS THE BLISS BUFFER 

INCLUDE ‘SRC$:MDL32CMN.CMN/NOLIST" 

ST eee OUF SOL BLOF) 


END 


oo 
ooo 
S28 Wr 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 17. =PIC CON REL 
; SLOCAL 12 PIC CON REL 

TEXT 431 PIC OVR REL 
& VARS 12 PIC OVR REL 
5 LOG 30 PIC OVR REL 
6 STGS 586 PIC OVR REL 
7 MORSTG 4 PIC OVR REL 
8 CHECKS 3 PIC OVR REL 
9 PARSE 216 PIC OVR REL 
10 FILES 654 PIC OVR REL 
11 SPCHR 6 PIC OVR REL 
12 LUNS 14 PIC OVR REL 

Total Space Allocated 3928 


ENTRY POINTS 
Address Type Name 


0-00000000 OUTBLI 
VARIABLES 

Address Type Name Address Type Name 
[eo BUI 10-000028¢ [#2 BLIPIR 
[e3 CBASE S-0000016E 12 CINCR 
I*2 DEBUG 2-006 at L*2 ENDEXP 
I*2 ERR -00000002 L*2 ERROR 
I*2 FOFSET 9- B86 I*2 FSIGN 
[eS LINELEN "3-00000106 feo LINTYP 
Ie R 10- $A I*2 MARPTR 
I*2 WNEGCNT 4- 8 00 I*4 NUM 
I*2 OUNS - rt L*2 POSOFF 
L*2 STGEQL : 3 06 3 STROK 
L*2 TMPIN - 1A L*2 TMPOUT 
L*2 UNDOK -000000B2 I*2 JNISIZ 


6 s3 1984 01 
ep- $ 
attr 1: 
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RD NOWRT LONG 
RD WwW 


RT LONG 

RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
D WRT LONG 
RD WRT LONG 
D WRT LONG 
RD WRT LONG 
RD WRT LONG 
RD WRT LONG 
Type Name 

I*2 BLBITS 
L*2 BLKOUT 
I* OL 

L*2 ENDFIL 
L*2 ERROUT 
I*2 FSIZ 

I*2 LASLIN 
I*2 LPTR 

I*2 MAS 

I*2 OBBITS 
L*2 SMASK 
I*2 TAB 


I*2 TOKTYP 
VMASK 
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:CMDL32.SRCIMDL32.FOR; 


Type Name 
I*2 BLFOFS 
I*2 BOFSET 
L*2 CONEXP 
I*2 EOLCH 
L*2 FLDLAS 
I*2 INP 
I*2 LFDSIZ 
I*2 LSBSIZ 
I*2 MNGCNT 
I*2 OFSIZ 
I*2 SOFSET 
I*2 TMP 
I*2 TTY 
I*2 VOFSET 
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Address Type 


Ise 


R 


NAM 
NEGSGN 
NUMSTR 
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Type Name 


FUNCTIONS AND SUBROUTINES REFERENCED 


OUTBUF 


N 3 
16-Sep-1984 01:57:23 VAX=11 FORTRAN V3.4-56 P 40. 
30071 3be 8:35:88 DISKSVMSMASTER: EMDL 32. SRCIMDL32.FOR;1°o . 


INTEGER FUNCTION LASTNB(P) 
RETURNS INDEX OF LAST NON-BLANK,NON-TAB BEFORE THE POINTER 


3358 
OO SOON 


| 
0005 | 
tt INCLUDE *SRC$:MDL32CMN.CMN/NOLIST' 
0109 K = P-} | 
0110 DO 10 I=1 
0111 C = INBUF (P=1+1) | 
Big IF ((C.NE.BLANK) .AND.(C.NE.TAB)) GOTO 30 
011 10 CONT INUE 
0114 3 LASINB = P-]+1 
0115 RETURN 
0116 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 81 PIC CON REL LCL § EXE RD NOWRT LONG 
¢ SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 3988 
ENTRY POINTS | 
Address Type Name 
0-00000000 I*2 LASTNB 
| 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
500000008 I*4 BINVAL 11-000 0 I* LANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 19°08 3 C I*2 BLIPTR 5- $h00813 L*2 BLKOUT 9- 8 83 A I*2 BOFSET 
£- po nnonee I*e2 C€ 9- 8 16C I*2 CBAS 9-Q000016E I*2 CINCR 4- 0004 I*2 COL 
16 L*2 CONEXP §- 0 I*2 DEBUG 2 8 oN L*2 ENDEXP 5-00 8 O L*2 ENDFIL 
"300000010 Led FLDLAS "S-00000122 Ied FORSET 3-00000086 T*3 FSiGn s-p0000088 Is) Feir. 
2-00000002 I*2 12-000000 ]* NP 10-000000A8 I*2 INPLIN 10-000000A6 I*2 INPTR | 


4 | 
LASTNB Ib-Se -1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 241 
~3007 138% BF :25:88 DI SKSVMSMASTER: CHOL 32: SRCIMDL32.FOR: 1 ° 
*2 K 9-0000051C I*2 LASLIN 00000216 I*2 LFDSIZ 4-0000000A I*2 LINELEN 
g 1 I*2 LINTYP -000 18 I*2 LPTR 00000014 I*2 LSBSIZ Ig° 2090 yh I*2 MAR 
10 19A I*2 MAR 12-000 o¢ I*2 MAS - 9 — I*2 MNGCNT - 9 $ I*2 NEGCNT 
0 I*4 NUM 00000334 I*2 OBBITS - E I*2 OFSIZ 9- 900 I*2 OUNSIZ 
AP aie*2 P - 0 0018 L*2 POSOFF -00000 L*2 SMASK 9=00000120 I*2 SOFSET 
L*2 STGEQL 00000006 L*2 STROK 1i- 9000 I*2 TAB Ig- 9900 6 I*2 TMP 
-0000001C L*2 TMPIN -Q000001A L*2 TMPOUT 9-00000 I*2 TOKTYP 12-0000000A I*2 TTY | 
00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5=0000000A L*2 VMAS 9-00000i24 I*2 VOFSET 
9-00000128 I*2 vSI2 
ARRAYS | 
Address Type Name Bytes Dimensions 
6-000000DA 1*2 AMASK 
6-00000196 I*2 ASIGN | 
9-0000051E I*2 BLBASE 16 ) 
10-0000019C I*2 BLIBUF 24 0) 
9-00000662 I*2 BLINCR 16 ) | 
6-0000017E I*2 BLSSIZ 2 ) 
9-00000308 I*2 BVALUE 16 ) 
6- EA I*2 BYTSI2Z 2 ) 
6-000001B84 I*2 COMGBL 1 
6- C4 I* | 
6-00000112 I*2 CONBAS 2 ) 
6-000001 26 Is2 CONINC g ) 
9-0000012C I*2 CONPRE ) 
9-0000014C I*2 CONTAG 3 ) 
9-000007A6 I*2 CONTEX 19 11) 
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LASTNB Ib-ge Sep-1984 2 Hi: 20:83 VAX=11 FORTRAN V3.4=-56 Page 242 


-Sep-1984 7: DISKSVMSMASTER: MDL32. SRCIMDL32.FOR;1 
6-0000015A I*2 MACTAB 1 (8) 00( 
9 AA I*2 MARBUF ¢ (120) 00¢ 
= 0 J*2 MRBASE 6 (81) 00¢ 
9 I*2 MRINCR 16 (81) 01¢ 
3 I*2 MVALUE 16 (81) 01 
10A Ll AME 3 (32) O1C 
I1*2 NEGSGN 4 (2) 01¢ 
3 12A Ll ST 133 (133) 01¢ 
6 1DA I*2 OASIGN 4 (2) 011 
6 16A I*2 OFFSET 20 (10) 011 
Stooosioe 1:3 Saath : 4 
t ' 
S-po00becE | 1=3 OSBNAN ($6) | 
9-000002EE I*2 OTGNAM (16) 
9-00000390E I*2 OUNTYP (16) 
-0000019A I*2 PCTSEM : (4) | 
-00000085 L*l PREFIX 13 (133) 
9-00000052 I*2 PRENAM 32 (16) 
6-000000D4 I*2 RANHYP 6 (3) 
9-0000021A I*2 RSTLIN 180 (90) ( 
6-00000154 I*2 SEMSPC 6 (3) 1 
6-O00000FE I*2 SPCSTG 4 (2) r 
6-000001A8 I*2 SPHYSP 8 (4) i 
9-0000009 Pe: STRSTG 32. (16) ‘ 
6-0000007 I* SUF DEF 8 (4) 
9-0000007 I*2 SUFNAM 32. (16) ¢ 
6-0000014C I*2 TABEQS 8 (4) i 
6-000000C I*2 TABLAN 6 (3) é 
6-000001CA ss TABOPR 6 (3) S 
6-000001CO I* TABPRN 10 (5) 1¢ 
6-000000A I*2 TABRAN 6 (3) 11 
6-0000008C I*2 TABSTG 4 (2) le 
9-00000100 I*2 TAGNAM 32. (16) 
9-0000047A I*2 TMPVAL 162 (81) 
9-00000000 I*2 TOKSTG 80 (40) 
6-00000238 I*2 UNDVLD 18 (9) 
6-0000007 I*2 UNITYP 4 (2) 
6-00000192 I*2 ZEROSG 4 (2) 
6 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label 


ee 10 0-00000048 30 


Dd 4 
"Bee 13be 81:57:56 DI SKSVMSRASTER: FMOLSS°SRCIMDL32.FORS To > 


000 


C RETURNS THE INDEX OF THE NEXT NON-BLANK, NON-TAB 
5 ¢ CHARACTER AFTER THE CURRENT CHARACTER. 
9007 INCLUDE '"SRCS:MDL32CMN.CMN/NOLIST' 
0110 INTEGER C 
0111 
Qile pO 10 1 = P + 1, INBUF (1) +1 
gi K =] 
114 C = INBUF (1) 
0115 IF ((C .NE. BLANK) .AND. 
0116 1 (C .NE. TAB)) GOTO 20 1 
0117 10 CONTINUE 
0118 20 NEXTNB = K 
0119 RETURN 
0120 END 


INTEGER FUNCTION NEXTNB (P) 
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Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 I*2 


VARIABLES 


Address Type 


ARRAYS 


Address Type 


6 196 I* 
$-0000051€ I 
10-0000019C I*2 


6-000090DA 133 


Name 
NEXTNB 


BINVAL 
BLI 


AMASK 
ASIGN 
BLBASE 
BL IBUF 


Address 


11-00000000 
10-0000028 
9-00000 
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RD NOWRT LONG 
R WRT 


Name 
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COPYRIGHT (c) 1980 
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TLAnSFERRED NO TITLE TO AND OWNERSHIP OF THE SOFTW 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ND COPIED 
D WITH THE 
ANY OTHER 
ILABLE TO ANY 
E IS HEREBY 


DA 
AN 
L 


H 
0 


LARA RAARASALALALALALALALALALELALALSLAASLALARAS ALAA SEAS ARAL ALAS ESAS ESSE SLES SS 


SUBROUTINE REAREND 


INCLUDE ‘SRC$:MDL32CMN.CMN' 
LOGICAL*1 GETIDENT, IDENT ,UNBLNK,GETMARLIN 


GOTO 100 
CALL _PUTLIN 
MARL 0 
GOTO 90 

Q..FALSE.) GOTO 90 
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CONTINUE 
RETURN 
END 
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p71 98¢ 81:89:38 DISKSVMSMASTER: CMDL32. SRCIMDL32. FOR; 1 ms 


mARRAYS 
Address Type Name Bytes Dimensions 


PROGRAM SECTIONS | gee 
Name Bytes Attributes | a 
0 SCODE 77 PIC CON REL LCL SHR EXE RD NOWRT LONG 010 
1 SPDATA 8 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 010 
é SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 010 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 010 
4 VARS if PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
5 LOG 3 PIC OVR REL GB SHR NOEXE RD WRT LONG 011 
$ STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
MORSTG 4 PIC OVR REL GB SHR NOEXE RD WRT LONG | 011 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 011 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 38 
Total Space Allocated 4024 | aE 
012 
ENTRY POINTS gis 
Address Type Name gts 
0-00000000 REAREND | ots 
O12 
VARIABLES Big 
Address Type Name Address Type Name Address Type Name Address Type Name ot 
4-00000006 1*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 013 
12-00000002 I*2 BLI 10-0000028C 1sg BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 013 
9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 013 
8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL -00000004 I*2 EOLCH 013 
12-00000008 I* R 5-00000002 L*2 ERROR 5-0000000E sg ERROUT -00000010 L*2 FLDLAS 013 
9-00000122 I*2 FOFSET 9-000000B6 I*2 FSIGN 9-000000B4 I*2 FSI2 12-00000000 I*2 INP 013 
10-000000A8 I*2 INPLIN 10-000000A6 I*2 INPTR 9-0000051C I*2 LASLIN -99000216 1sg LFDSIZ 014 
4-0000000A I*2 LINELEN 3-00000126 sg LINTYP 9-00000218 I*2 LPTR 9-00000214 I*2 LSBSIZ 014 
12-00000004 I* R 10-0000019A I*2 MARPTR 12-0000000¢ I*2 MAS 9-0000086E sg MNGCNT 
9-0000086C I*2 NEGCNT 4-00000000 I*4 NUM 9-00000334 I*2 OBBITS 9-0000032E I*2 OFSIZ 
3~p000000 sd Secor 3750000008 td STROKe 1300000008 iS tap 13-p0000006 {#3 TMP ee 
; vc ttS tnein a-pooRcOTA. ted SMEOUT 3700000080 {#3 TORTYP 15200900008 t23 Try 
8 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK §-00000124 I*2 VOFSET | 
| 
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0-00000008 90 
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ZEROSG 
ZRLAHY 
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0-00000012 
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Type Name 
DEF INIF 


Type Name 


L*1 


GETIDENT 
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Address’ Label 
0-0000004C 2000 


Type Name 
L*1 GETMARLIN 
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| 
1 | 9 
| 
SUBROUTINE NE CONCAT (STRNG2. S .STRNG1, STRNG3) 6 
INCLUDE 'S 9 
1 LOGICA Let “STANGNC, STRNGD(*), STRNG3(*) ,STRNG4 (132) | 6 
1 DO 100 I=1 Ns 6 
107 STRNGS (1 SE TRNG ) | 6 
108 IF (STRNGS(I). Ts ) GOTO 200 9 
109 =: 100 CONT INUE 6 
110 CALL ERRORF (2, TOOLONG) 9 
0111 Gord 09 6 
0112 200 DO 30 6 
gi STRNG3( dyigtines ) 6 
114 IF (STRNG3(I). ga ) GOTO 400 | 6 
0115 300 CONTINUE 6 
0116 CALL ERRORF (2, TOOLONG) 6 
011 GOTO 600 | 9 
0118 400 DO 500 J=1,131 9 
0119 STRNG3(1=14J) =STRNGS ( | 9 
9120 IF (STRNG3(I-14J).EQ. 3) GOTO 600 6 
0121 500 CONTINUE 6 
Oige CALL ERRORF (2, TOOLONG) | 6 
012 600 RETURN 6 
0124 END 
LAB 
} 
| 
PROGRAM SECTIONS ‘ 
Name Bytes Attributes ¢ 
0 $CODE 176 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 4 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
é SLOCAL 212 PIC CON REL LCL NOSHR NOEXE RD WRT LONG FUN 
TEXT 431 PIC OVR REL GB NOEXE RD WRT LONG 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG T 
5 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
6 SIGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
Total Space Allocated 4291 
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Address Type Name 
0-00000000 CONCAT 
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LABELS 
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ee 100 0-00000052 200 


FUNCTIONS AND SUBROUT'NES REFERENCED 
Type Name 
ERRORF 
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INTEGER FUNCTION Ne yb! ag 
INCLUDE ‘SRC$:MDL52CMN.CMN' 
LOG i Tate STRNG(* 
DO 100 LENGTH=1,132 
IF (STRNG(LENGTH).EQ.0) GOTO 200 
CONTINUE 
CALL ERRORF (2, TOOLONG) 
LENGTH=LENGTH=1 
RETURN 
END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 62 PIC CON REL 
1 SPDATA 4 PIC CON REL 
¢ SLOCAL 3 PIC CON REL 
TEXT 431 PIC OVR REL 
& VARS 12 PIC OVR REL 
5 LOG Mi PIC OVR REL 
6 STGS 586 PIC OVR REL 
7 STG 4 PIC OVR REL 
8 CHECKS 3 PIC OVR REL 
9 PARSE 216 PIC OVR REL 
10 FILES 654 PIC OVR REL 
11 SPCHR 6 PIC OVR REL 
12 LUNS 14 PIC OVR REL 
Total Space Allocated 4001 
ENTRY POINTS 
Address Type Name 
0-00000000 I*2 LENGTH 
VARIABLES 
Address Type Name Address Type Name 
4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 
12-00000002 I*2 BLI 10- Bont es I*2 BLIPTR 
SR 
1 ~$o008008 It RR * $000002 L*2 ERROR 
9-00000122 I*2 FOFSET 9-000000B6 I*2 FSIGN 
1 A Ie INPLIN 10-Q00000A6 I* INPTR 
4 A I*2 LINELEN 9-000 ise I*2 LINTYP 
e2 MAR 10- 4 19A [#2 MARPTR 
-9000086C I*2 NEGCNT 4-00000000 I*4 NUM 
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RD NOWRT 
RD NOWRT 
RD 


Type Name 


I*2 BLBITS 
L*2 BLKOUT 
co 
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L*2 ENDFIL 
L*2 ERROUT 
FSIZ 
I*2 LASLIN 
LPTR 
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I*2 OBBITS 


Ye oe so° P 
MDL32.SRCIMDL32.FOR;1 


Address Type Name 


00000332 I*2 BLFOFS 
4H HE I*2 BOFSET 
0000016 L*2 CONEXP 
00000004 I*2 EOLCH 
00000010 L*2 FLDLAS 
BROR8 00 I*2 INP 
00000216 I*2 LFDSIZ 
s'4'64 14 I*2 LSBSIZ 
00000 ge I*2 MNGC 
QOOOOS2E I*2 OFSIZ 
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LAB 


dD 5 
LENGTH 16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4-56 Pp 56 
| g7920- 1382 O1 35383 DISKSVMSMASTER: CMDL 32, SRCIMDL32.FOR: 109° . 
330 1*2 OUNSIZ -00090018 L*2 POSOFF 5-00 L*2 SMASK -00000120 OF SET 00C 
i*2 STGEQL 00000006 Le2 STROK li- 0 6 I*2 TAB 1 -89090008 [: onP . | 000 
iC Le2 TMPIN - 1A L*2 TMPOUT . I*2 TOKTYP =9900000 1*2 TOOLONG 00C 
1 A I*2 TTY - 08 L*2 UNDOK -000000B2 I*2 UNISIZ -0000000A L*2 VMASK 
1 1*2 VOFSET - 1 I* 


ARRAYS 
Address Type Name Bytes Dimensions 


ot se  _ _ _ _ _ d _  _b _ _ _ _ 


lelelelelelelelelelelelelelelelelelelelelelelela) 
PORIRIAIARIAIRINAIA) 4 — 2 2 2 BO OOOO 


9-0000051E I*2 BLBASE 16 ) | 

SREB, 13 RRS 8 (Ue 
t i 

6 WE Ise BLssiZ 2 ) | 

9-000003D8 I*2 BVALUE 16 ) 

6-O00000EA 1*2 BYTSIZ 2 

6-00000184 I* i 

6-000000C4 I* § 

600000112 1*2 CONBAS ) | 

6-00000126 1*2 CONINC ) 

9-0000012C I*2 CONPRE ) 

9-0000014C I* A 3 ) 

9-000007A6 I*2 CONTEX 19 11) 


4 (2) 
4 (2) 
4 (81 
(12 
3 (81 
(10 
2 (81 
0 (10 
2 (6) 
4 (2) 
0 (10 
0 (10 
2 (16 
2 (16 
8 (9 
; fg 
9-00000170 I*2 CVALUE 162 (81) 
6-00000046C I*2 DEFEND 20 (10) 
6-00000022 I*2 DEFINI 20 (10) 
6-000001DE I*2 DOLBIT 26 (13) PRO 
6-000001F 8 is$ DOLBYT 28 (14) 
6-00000036 I*2 DOLDEF 12 (6) 
6-00000214 I*2 DOLFLD 24 (12) 
6-00000016 I*2 DOLGBL 12 (6) ¢ 
6-00000234 ss DOLLAR 4 (2) 1 
6-00000090 I*2 DOLVLD 18 (9) | é 
6-000000DE I*2 DOTBLK 12 (6) 7 
6-00000042 I*2 DOTEQS 10 (5) 4 
6-00000000 I*2 DOTMAC 22 (11) 3 
6-00000060 I*2 ENDMA 18 (9) ¢ 
sciesonres 1:3 Eevte Has 18 
* ' 
£80080 E I*2 EXCLSP 14 (9) | 5 
6-00000230 I*2 EXPCLO 4 (2) | 1¢ 
6-0000022C I*2 EXPOPN 4 (¢) 11 
9 8 I*2 FLD 72 (36) iP 
6-000001B0 I*2 HYPHEN 4 (2) 
1 I*2 INBUF 166 (83) 
g C8 I*2 LANHYP $ (3) 
Le] LINE 133 (133) 
6 135A I*2 LITTAB 18 (9) 
6 15A I*2 MACTAB 16 (8) 
1 AA I*2 MARBUF 240 (120) 
9 CO I*2 MRBASE 166 ol) 
9-00000704 I[*2 MRINCR 162 (81) 


5 
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3 I1*2 MVALUE 196 (81) 
10A L®*l NAME (32) 
is¢ NEGSGN 4 (2) 
3 12A L*l NUMSTR 133 (133) 
S-0000016A Id OFFSET 23 (40) 
® 
pan e's ale Sard I*2 ONESHF 6 (3) 
6 10E I*2 OPAREN 4 (2) 
9-000002CE I*2 OSBNAM (16) | 
9 EE I*2 OTGNAM (16) 
9 OF I*2 OUNTYP (16) 
g 19A I*2 PCTSEM (4) 
33 L*1 PREFIX 13 (133) 
9-00000052 I*2 PRENAM 32 (16) 
6-000000D4 I*2 RANHYP 6 (3) 
9-0000021A I*2 RSTLIN 180 (90) 
6-00000154 I* SEMSPC 6 (3) 
6-000000F I* SPCSTG 4 (2) 
6-000001A8 I*2 SPHYSP 8 (4) 
AP L*1 STRNG ee 8 (®) 
9-0000009 I*2 STRSTG 32 (16) 
6-0000007 I* SUF DEF 8 (4) 
9-0000007 I* SUF 32 (16) 
6-0000014C I* TABEQS 8 (4) 
6-O00000CE I* TABLAN 6 (3) 
6-Q00001CA I* TABOPR 6 (3) 
6-000001C0 res TABPRN 10 (5) 
6-O00000AC I* TABRAN 6 (3) 
6-0000008C I*2 TABSTG 4 (2) 
9-00000100 is TAG 32 (16) 
9-0000047A I TMPVAL 162 (81) 
9-00000000 I*2 TOKSTG 80 (40) 
6-00000238 I*2 UNDVLD 18 (9) 
6-0000007A i$ UNITYP 4 ($} 
6-00000192 I* ZEROSG 4 (2) 
6-000000A2 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label 
ee 100 0-00000036 200 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
ERRORF 
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16-Sep-1984 1330363 VAX=11 FORTRAN 


3.4-56 
-Sep-1984 01:57:26 DISKSVMSMASTER: 
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MOL32 SRCIMDL32.FOR:1°o" ~ 


0001 ¢ 

990 SUBROUTINE MOVNAN( TRNGI , gS TRNG2) 6 

INCLUDE 'SRCS$:MDL32CMN. | 

19 00-100. fe OFRNGT Le) STRNGS CD g 

b109 STRNG2(1)=$TRNG1(1) 6 

0108 IF (STRNG2(I). fa: ) GOTO 200 6 

0109 100 CONT INUE 6 

0110 CALL ERRORF (2, TOOLONG) 6 

0111 200 RETURN ¢ 

0112 END g 

6 

¢ 

PROGRAM SECTIONS | i 

Name Bytes Attributes é 

0 SCODE 72 PIC CON REL LCL SHR EXE RD NOWRT LONG 5 

1 SPDATA 4 PIC CON REL LCL NOEXE RD NOWRT LONG | 5 

é SLOCAL 56 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 5 

TEXT 431 PIC OVR REL GB HR NOEXE RD WRT LONG 3 

& VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG ? 

5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 3 

6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG € 

7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 

8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 

9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG é 

10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG | § 

11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG | § 

12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG | ; 

Total Space Allocated 4031 | ; 

| é 

ENTRY POINTS } 
| 

Address Type Name | d 

0-00000000 MOVNAM | 

S 

VARIABLES ; 

Address Type Name Address Type Name Address Type Name Address Type Name | ‘ 

4-00000006 1*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS | ¢ 

12-00000002 <3 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET é 

9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP ¢ 

$-00000000 I*2 DEBUG 2° 900 014 L*2 ENDEXP 2-0000 000 L*2 ENDFIL 11-00000004 I*2 EOLCH | ¢ 

12-00000008 I*2 ERR 00000002 L*2 ERROR -9000 QOE L*2 ERROUT §-00000010 L*2 FLDLAS { 

9 1 I*2 FOFSET 9-0 00 6 I*2 FSIGN 9-000000B4 I*2 FSIZ g -00000000 I* ( 

12 *2 INP 10- 4 A8 I*2 INPLIN 10- 5000046 I*2 INPTR ~90000316 I*2 LASLIN ( 

9-00000216 I*2 LFDSIZ 4-0000000A I*2 LINELEN 9-000 126 I*2 LINTYP 9-00000218 I* PTR ( 

9-00000214 I*2 LSBSIZ ge 0000004 I*2 MAR 10-0000019A I*2 MARPTR 12-00000 o¢ I*2 MAS ( 

9-0000086E I*2 MNGCNT -0000086C I*2 NEGCNT 4-00000000 I*4 NUM 9-00000334 {i*2 OBBITS 


5 | 

16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4=-56 P 59 | 
g-sen-1984 Bt 2b:Ss PTE SUNGRAS tens EMOC SS SRCIMDLS2.FORSIe™ - 

OF SIZ -00000330 1*2 OUNSIZ -00000018 L*2 POSOFF 5-0000000C L*2 SMASK | 

SOF SET ~Po8RGOy kes | Syusa? ° 0090006 L*> STROK 140000009 Ie) TAB 

TMP mt OO1C L* TMPIN “Q000001A L* TMPOUT 9444544 I* TOKTYP 

TOOLONG 12-000 th ]* TTY - tite L* UNDOK 9-0000008 ]* UNISIZ 

VMASK 00000124 1*2 VOFSET 9-00000128 I[*2 VSIZ 


ARRAYS | 
Address Type Name Bytes Dimensions 
6-000000DA I* SK 4 (2) 
6-00000196 I*2 ASIG 4 (0) | 
9-0000051E I*2 BLBASE 162 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
9- I*2 BLINCR 162 (81) 
6-0000017E I*2 BLSSIZ 20 (10) 
9-000003D8 I*2 BVALUE 162 (81) 
6-000000EA I*2 BYTSIZ 20 (10) 
6-000001B4 I*2 COMGBL 12 (6) | 
-000000C4 I*2 COMMAS 4 (2) 
6-00000112 I*2 CONBA 20 (10) 
6-00000126 I*2 CONINC g9 610) 
9-0000012C I*2 CONPR 2 (16) 
9-0000014C I*2 CONTAG 32 (16) 
9-000007A6 I*2 CONTEX 198 (9, 11) 
6-000001D6 Ie CPAREN 4 (5 | 
6-000001D0 I*2 CPRC 6 (3) 
9-00000170 sg CVALUE 162 (81) 
6- I*2 DEFEND 20 (10) 
6-00000022 Isg DEFINI 20 (10) 
6-000001DE I*2 DOLBIT 26 (13) 
6-000001F8 I*2 DOLBYT 28 (14) 
~80000036 1:2 DOLDEF 12 (6) 
6-00000214 I*2 DOLFLD 24 (12) 
-00000016 I*2 DOLGBL 12 (6) 
6-00000234 I*2 DOLLAR 4 (2) 
-00000090 I*2 DOLVLD 18 (9) 
6-000000DE I*2 DOTBLK 12 <6) 
6-B000008¢ sg OTEGS 10 (5) 
6-00000000 I*2 DOTMAC 22 (11) 
6-00000060 I*2 ENDMAC 18 (9) 
6-00000082 Ing EQULST 18 (9) 
6 102 eg EQUTAB 12 (6) | 
6- E ieg EXCLSP 14 (7) 
6-00000230 I*2 EXPCLO 4 (2) 
6-0000022C I*2 EXPOPN 4 (2) 
9-000000B8 I*2 FLDNAM 72 (36) 
iSseeeeees 1:3 fheur" 16h 1B | 
=| * | 
$-00000000 Lel LINE. 138 (153) | 
* 
6-0000018A Ts? LITTAB 18 (9) 
6-0000015A I*2 MACT 16 (8) 
10-000000AA I*2 MARBUF 240 (120) 
9-000005CO I*2 MRBASE 16g (81) 
9-00000704 I*2 MRINCR 162 (81) 


H 5 
a ab 4 01:57:23 VAX=11 FORTRAN V3.4=-56 P 
“Sep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 


-000003 I*2 MVALUE 1 (81) 
-0000010A if NAME $8 (32) 
BOObOT SR tet WURSSR 133 (433) 
6-000001DA I*2 OASIGN 4 (2) 
6-Q000016A I*2 OFFSET 20 (10) 
6-000001A2 I*2 ONESHF 6 (3) 
6-Q000010E I*2 OPAREN 4 (2) 
9-000002CE I*2 OSBNAM (16) 
9-O000002EE I*2 OTGNAM (16) 
9-0000030E I*2 OUNTYP (16) 
e- 19A I*2 PCTSEM ; (4) 
5 L*l PREFIX 13 (133) 
9-00000052 I*2 PRENAM 32 (16) 
6-00000004 I*2 RANHYP 6 (3) 
9-0000021A I*2 RSTLIN 180 (90) 
6-00000154 I*2 SEMSPC 6 (3) 
O-PS ak I*2 SPCSTG 4 (2) 
6-000001A8 I*2 SPHYSP 8 (4) 
AP-000000048 L*1 STRNG1 ee = (#) 
AP-00000008@ L*1 STRNG2 ee (*#) 
9-0000009 ies STRSTG 32 (16) 
6-00000072 I*2 SUFDEF 8 (4) 
9-00000072 I*2 SUFNAM 32 (16) 
6-0000014C I*2 TABECS 8 (4) 
6-O00000CE I*2 TABLAN 6 (3) 
6-Q000001CA I*2 TABOPR 6 (3) 
6-000001CO I*2 TABPRN 10 (5) 
6-000000AC is TABRAN 6 (3) 
6-0000008C I*2 TABSTG 4 (2) 
9-00000100 I*2 TAGNAM 32 (16) 
9-0000047A I*2 TMPVAL 162 (81) 
9-00000000 I*2 TOKSTG 80 (40) 
pa sais ot i$ UNDVLD 18 (9) 
6 7A I*2 UNITYP 4 (2) 
6-00000192 I*2 ZEROSG 4 (2) 
6-O000000A2 I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address’ Label 
ee 100 0-00000047 200 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
ERRORF 
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1b-Se0-19 4 01:57: 3 VAX-11 FORTRAN V3.4-56 
-$ep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCJMDL32.FOR;1 
0001 000 
000 FUNCTION GETNUM(FAILMODE) 000 
000 INCLUDE 'SRC$:MDL32CMN.CMN’ 000 
010 LOGICAL®1 GETNUM,GETVAL gig 
0106 BYTE BINOPS(8) 010 
O10 DATA BINOPS/'+* "=" fet 78 tet tre eye tary 010 
108 GE TNUM=. FALSE. gi8 

0109 NUM= 
0110 BEGCOL=COL ot) 
0111 IF (GETVAL().EQ..FALSE.) GOTO 300 38 
O11 GE TNUM=. TRUE. a 
011 NUM= NVAL | 
0114 100 DO 200 1=1,8 
0115 IF (LINE(COL).EQ.BINOPS(I)) GOTO 400 
0116 00 CONT INUE 
0117 00 RETURN 
0118 400 COL=COL+1 | PRO 
0119 IF (GETVAL().EQ..TRUE.) GOTO 50 | 
0120 IF (FAILMODE.EQ.0) CALL ERRORF (3,MISSINGVALUE) | 
0121 GE TNUM=. FALSE. 0 
01 é COL=BEGCOL g 
01 GOTO ¢ 
0124 500 GOTO (610,620,630,640,650,660,670,680),1 | i 
0125 610 NUM=NUM+B INVAL ; 
0126 GOTO 100 | ; 
0127 += 620 NUM=NUM-BINVAL : 
0128 GOTO 100 ' 
0129 630 NUM=NUM*B INVAL 5 
0130 GOTO 100 16 
0131 640 =NUM/BINVAL 14 
0132 GOTO 100 13 
013 650 NUM=NUM. AND .BINVAL | 
0134 GOTO 100 
0135 660 NUM=NUM.OR.BINVAL 
0136 GOTO 100 | 
0137. Ss 6670 NUM=NUM. XOR.BINVAL 
0138 GOTO 100 
0139 680 NUM=NUM®*2**B I NVAL 
0140 GOTO 100 
0141 END 

| 

| 

| 
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ENTRY POINTS 
Address Type 
0-00000000 L*1 


VARIABLES 
Address Type 


ARRAYS 
Address Type 


6-000000DA iss 
ge sis dh I* 
2-00000000 L*1 


Total Space Allocated 


Name 
GE TNUM 


Name 
BEGCOL 


ASIGN 
BINOPS 


Bytes 
276 
é 
4 
586 
4 
21 
8s 
6 
14 
4215 
Address 
4-00000006 
aes 9444 9 
-0000016C 
-00000000 
12-00000008 
-00000010 
2-0000000A 
9-0000051C¢ 
an 4 4 64 
12-0000000C 
St 
a ttdaity 
5-0000001A 
9-000000B2 
Bytes 
4 
4 
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Type Name 
I*4 BINVAL 
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RD NOWRT 
RD NOWRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
Type Name 

I*2 


I*2 IN 

I*2 LF 

I*2 LS 

I*2 MI 

I*2 OBBI 
L* SMASK 
I*2 TA 
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I§- Sep-1984 Bi: af: 3 VAX-11 FORTRAN BES, 
-Sep-1984 01:57:26 DISKSVMSMASTER: mor ao” SRCIMDL32.FOR;1 
1*2 PRENAM 32 (16) 
I*2 RANHYP 8 (3) 
I*2 RSTLIN 18 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 3 (16) 
I*2 SUFDEF (4) 
I*2 SUF 3 (16) 
I*2 TABEQS (4) 
I*2 TABLAN 6 (3) 
I*2 TABOPR 8 (3) 
I*2 1TABPRN 1 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
1*2 TAGNAM § (16) 
I*2 TMPVAL 16 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
I*2 UNITYP 4 (2) 
I*2 ZEROSG 4 (3) 
I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
0-00000034 100 hed 200 0-00000056 300 0-0000005B 400 0-00000086 500 0-0000009B8 610 
a4 re 0-000000B6 630 0-000000C4 640 0-000000D2 650 0-000000E3 660 0-000000F1 670 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
ERRORF L*1 GETVAL 
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16-Sep-1984 01:57:23 VAX-11 FORTRAN e 265 
g- 900-138 81:35:83 DISKSVMSMASTER: FAt33° SRCIMDL32.FOR: 1 f29 
1 1 
$88 LOGICAL FUNCTION Heo | 
INCLUDE 'SRC$:MDL3OCMN.CMN’ S 
1 LOGICAL®1 UNBLNK,T | 5 
1 SIGN= 5 
1 BINVAL=0 § 
108 GETVAL=.FALSE. 1% 
0109 IF (UNBLNK().NE."=") GOTO 100 1¢ 
0110 SIGN=1 § 
0111 COL=COL+1 
ie 100 IF (UNBLNK().NE.'+") GOTO 110 
1 COL=COLe| ARR 
114 GOTO 160 
0115 +110 IF (LINE(COL).NE.**") GOTO 180 
0116 IF CLINE (COL #1) NE.'X") GOTO 180 | 
0117 DO 150 COL=COL+2,132 
0118 TMP=L INE (COL) 
0119 IF (CTMP.LE.'9") AND. (TMP.GE.'0")) GOTO 130 | 
0120 IF (CTMP.GT.'F*).OR.(TMP.LT.*A')) GOTO 400 1 
0121 TRP=TRP-"AYs'9* +] 
O1g¢ 130 GETVAL=. TRUE. 
01 BINVAL=BINVAL*16+(TMP="0' ) 
0124 150 CON 
O1g5 GOTO 300 
0126 «=: 1180 DO 200 COL=COL,132 
0127 (LINE(COL).LT.'0") GOTO 400 
0128 (LINE (COLD: GT."9") GOTO 400 
0129 TVAL=. TRUE. 
0130 NVAL=BINVAL®104(LINE(COL)="0" ) 
0131 200 Tl 
0132 
O13 TVAL= 
0134 400 (SIGN. eo. 1) BINVAL=-BINVAL 
0136 
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GETVAL 16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4-56 Page 266. 
~3007 138% 1:35:83 DI SKSVMSMASTER: (MDL 32, SRCJMDL32. FOR: 1 . | 
PROGRAM SECTIONS | 8 
Name Bytes Attributes | 3 
0 SCODE 311 PIC CON REL LCL SHR EXE RD NOWRT LONG 9 
1 SPDATA 4 PIC CON REL LCL SHR NOEXE RD NOWRT LONG ; 
é SLOCAL 38 PIC CON REL LCL NOSHR NOEXE WRT LONG 
EXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG | ; 
& VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG | 6 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 6 
8 CHECKS g PIC OVR REL GBL SHR NOEXE =D WRT LONG | 9 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 9 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 9 
11 SPCHR $ PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
12 LUNS 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 3 
Total Space Allocated 4241 3 
6 
ENTRY POINTS e 
Address Type Name | 
0-00000000 L*1 GETVAL i 
6 
VARIABLES e 
Address Type Name Address Type Name Address Type Name Address Type Name e 
4-00000006 1*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 9 
12-00000002 I*2 BLI 1O-9po0e8¢ 133 BLIPTR 5-00000012 U3 BLKOUT 9-0000012A I*2 BOFSET 9 
9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 9 
8-00000000 I*2 DEBUG 3-90000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 6 
12- 7 Is RR 5-00000002 L*2 ERROR 5-0000000E L*2 ERROUT 5-00000010 L*2 FLDLAS 6 
$-0000012¢ I*2 FOFSET 9-00000086 I*2 FSIGN 9-00000084 I*2 FSI2Z 12-00000000 I*2 INP 6 
10-000000A 1s§ INPLIN 10-000000A6 I*2 INPTR 3-0000 1¢ I*2 LASLIN 9-00000216 I*2 LFDSIZ 6 
4-0000000A I*2 LINELEN 9- 9000126 1*2 LINTYP 9-00000218 I*2 LPTR 9-00000214 I*2 LSBSIZ 
2-00000004 1s MAR 19-000001 A 1*2 MARPTR 12-00000 08 I*2 MAS 9-0000086E I*2 MNGCNT 
9-0000086C I*2 NEGCNT 4-00 9009 1*4 NUM -00000334 I*2 OBBITS 9-0000032E I*2 OFSIZ LAB 
9-00000 4 I*2 OUNSIZ -00000018 L*2 POSOFF -00000000 I*2 SIGN 5-0000000C L*2 SMASK 
9-0000012 1*2 SOFSET - 6 9 04 L*2 STGEQL - 99 906 L*2 STROK 13-9900000 Ie? TAB | 
Ig- 6 L*l TMP - C Led TMPIN - 0 A L*2 TMPOUT 9-0 I*2 TOKTYP | 
-00000002 I*2 TOOLONG Ig- 000 99 I*2 TTY 5-00 90098 L*2 UNDOK 9-000000B2 I*2 UNISIZ 1 
5-0000000A L*2 VMASK -00000124 I*2 VOFSET 9-00000128 I*2 vSI2 | 
ARRAYS | 
Address Type Name Bytes Dimensions 


6-O000000DA I*2 AMASK 4 (2) 
esse thd I*2 ASIGN 4 (2) 
9-00 Bbiae I*2 BLBASE 166 (81) 


10-0000019C I*2 BLIBUF 
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if-se0-19 d 8:35:33 DISKSVMSMASTER: MbL32 SRCIMDL32.FOR: 1 
ENTRY POINTS 
Address Type Name 
0-00000000 L*1 GETIDENT 


VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 


9 
6 
6 
6 
9 
6 
9 
6 
6 
6 
6 
6 
6 
9 
9 
9 
6 
6 
6 
6 


4 1*4 BINVAL 11-00000000 I*2 BLANK -00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS | 
13=b0900095 I*2 BLI 10-009 Mt I*2 BLIPTR 3750900013 L*2 BLKOUT 9-0000012A I*2 BOFSET | 
9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP 
8-00000000 I*2 DEBUG 3-00000014 L*2 ENDEXP 5-00000000 Lee ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 I*2 ERR -00000002 L*2 ERROR 5-0000000E Lee ERROUT 5-00000010 L*2 FLDLAS | 
9-00000122 I*2 FOFSET 3-000000B6 I*2 FSIGN 9-00000084 I*2 FSIZ g-00000002 I*2 | 
2-00000000 L*1 IDENT 12-00000000 I*2 INP 10-000000A8 I*2 INPLIN 10-000000A6 I*2 INPTR 
9-0000051C I*2 LASLIN 9-00000216 I*2 LFDSIZ 4=0000000A I*2 LINELEN 9-00000126 I*2 LINTYP | 
9-00000218 I* 9-00000214 I*2 LSBSIZ 12=00000004 I*2 MAR 10-0000019A I*2 MARPTR 
12 C I*2 MA 9-0000086E 1*2 MNGCNT 9-0000086¢ I*2 NEGCNT 4=00000000 I*4 NUM 
$9000 $6 1*2 OBBITS 9-00000 ef I*2 OFSIZ 9-00000330 I*2 OUNSI 5-00000018 L*2 POSOFF | 
5-0000000C L*2 SMASK 9-00000120 I*2 SOFSET 5-00000004 Le2 STGEQL 5-00000006 L*2 STROK 
11-00000002 I*2 TAB 12-00000006 I*2 TMP 5-0000001C L*2 TMPIN 5-0000001A L*2 TMPOUT | 
9-00000050 I*2 TOKTYP 2=00000004 I*2 TOOLONG 12-0000000A I*2 TTY 5-00000008 L*2 UNDOK | 
9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 9-00000128 I*2 vSI2Z | 
ARRAYS 
Address Type Name Bytes Dimensions | 
6-000000DA 1*2 AMASK 4 (2) 
6-00000196 I*2 ASIGN 4 (2) 
9-0000051E I*2 BLBASE 162 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
9 Isg BLINCR 162 (81) 
6-0000017E I*2 BLSSIZ 20 (10) 
9-00000308 I*2 BVALUE 162 (81) 
6-000000EA I*2 BYTSIZ 20 (10) 
6-000001B4 I*2 COMGBL 12 (6) | 
6-000000C4 I*2 COMMAS 4 (2) | 
6-00000112  I*2 CONBAS 0 (10) 
é 126 I*2 CONINC (10) 
9 12C I*2 CONPRE (16) 
9 14C I*2 CONTAG (16) | 
9 7A6 I*2 CONTEX 198 (9, 11) | 
6- 106 I*2 CPAREN 4 (@s 
6 100 1*2 CPRC (3) 
9-000001 I*2 CVALUE 16 (81) 
SSS 8 1 
6 (13) 
8 (14) 
36 2 (6) 
24 (12) 
12 (6) 


GETIDENT 


F 6 | 
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6-00000 3 1*2 DOLLAR 4 (2) 
6 I*2 DOLVLD 18 (9) 
6 DE I*2 DOTBLK 1 (6) 
6 042 I*2 DOTEQS 10 (5) 0 
6 1*2 DOTMAC 22 (11) 
6- I*2 ENDMAC 18 (9) 010 
Sio00N8s 1:2 EalNAR Has BB 
60000007 I*2 EXCLSP 14 (7) 011 
6 3 I*2 EXPCLO 4 (2) 011 
6 C I*2 EXPOPN 4 (2) 011 
9 5 I*2 FLDNAM 72 (36) 011 
16-00000000 [=3 INBUF” 166 (83) O11 
. 7 
@-000000c8 I*2 LANHYP $ (3) 011 
L*l LINE 133 (133) 011 
6-0000013A I*2 LITTAB 18 (9) 011 
6-0000015A I*2 MACTAB 16 (8) 011 
0-000000 I*2 MARBUF 240 (120) 012 
9-000005CO0 I*2 MRBASE 162 (81) O12 
9-000007 I*2 MRINCR 162 (81) O12 
9-000003 1*2 MVALUE 16 (Oy) O12 
3-0000010A L*l NAME 32 (32) O12 
7 1*2 NEGSGN 4 (2) O12 
3-0000012A L*1 NUMSTR 133 (133) O12 
6-000001DA I*2 OASIGN 4 (2) O12 
6-0000016A I*2 OFFSET 20 (10) 012 
6-000001A2 I*2 ONESHF 6 (3) | O12 
6-0000010E I*2 OPAREN 4 (2) 013 
9-000002CE I*2 OSBNAM 32 (16) 013 
9-000002EE 1*2 OTGNAM 33 (16) | 013 
9-0000030E I*2 OUNTYP 32 (16) 013 
6-0000019A I*2 PCTSEM : (4) 013 
3-00000085 L*l PREFIX 133 (133) 013 
9-00000052 sg PRENAM 32 (16) 013 
6-000000D4 I*2 RANHYP 6 (3) 013 
9-0000021A I*2 RSTLIN 180 (90) 013 
6-00000154 I*2 SEMSPC 6 (3) 013 
6-000000F 1s¢ SPCSTG 4 (2) 014 
6-000001A8 I*2 SPHYSP 8 (4) 014 
9-00000092 I*2 STRSTG 32 (16) | 914 
6-00000072 I*2 SUFDEF 8 (4) 014 
9-00000972 I*2 SUFNAM 32. (16) 014 
6-0000034¢ I*2 TABEQS 8 (4) 014 
6 CE I*2 TABLAN 6 (3) 014 
6-000001CA I*2 TABOPR 6 (3) 014 
6-000001CO I*2 TABPRN 10 (5) 014 
6-B00000AC I*2 TABRAN 6 (3) 014 
g 8C I*2 TABSTG 4 (2) 01% 
190 I*2 TA 32 (16) 01! 
9 A I*2 TMPVAL 162 (81) 01% 
9 I*2 TOKSTG 89 (40) 01! 
6 1*2 UNDVLD 18 (9) 01! 
Sctoggsies 1:3. Yehote i eat 
e | 3 
$-000000K9 I*2  ZRLAHY 10 (5) | Bi 
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Type Name 


Type Name 


tlle ttt tl 


H 6 | 
16-Sep-1984 01:57:23 VAX=-11 FORTRAN V3.4-56 is} 7 
g-3ee Or i85338 nee a? 


ee 100 0-0000004C 200 0-00000050 300 


ep-1984 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 
0001 
ait4 LOGICAL FUNCTION wae Oo 
000 LOGICAL®1 STRNG1(*) ,STRNG2(*) 
0004 IDENT=.FALSE 
0005 DO 100 1=1,132 
DORs IF (STRNG1 (1) .£0.0.AND Hye HE GOTO 200 | 
000 If (STRNGI(1).NE.STRNG2(1)) GOTO 300 
0008 100 CONT INUE 
0009 00 IDENT=. TRUE. 
0010 00 RETURN 
0011 END 
| 
PROGRAM SECTIONS 
Name Bytes Attributes 
Q $CODE 85 PIC CON REL LCL SHR EXE RD _NOWRT LONG | 
2 $SLOCAL 44 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 129 
| 
ENTRY POINTS 
Address Type Name | 
0-00000000 L*1 IDENT 
VARIABLES 
Address Type Name | 
2-00000000 I*2 | 
| 
ARRAYS 
Address Type Name Bytes Dimensions | 
AP= 0048 L*1 STRNG! ee (*) 
AP- 0088 L*1 STRNG2 ee (#) 
| 
LABELS | 
Address Label Address’ Label Address Label 


6 | 
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=$ep-1984 01:57:26 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 
0001 g 
LOGICAL FUNCTION YNBLNK® 
INCLUDE SRCSENDL ech cr" | 
10 IF (COL GT 1 2) GoTo 15 i 
106 DO 100 COL=COL,132 - | ¢ 
919 IF (LINE(COL).GE. VY ,AND -LINE(COL) LE. 14) GOTO 100 ¢ 

108 IF (LINE(COL).NE.* *) GOTO 200 

0109 100 CONTINUE 6 
0110 150 COL=13 6 
0111 200 UNBLNK=LINE (COL) | 3 
O12 RETURN | 9 
011 END | i 
6 
g 
6 
PROGRAM SECTIONS , 
Name Bytes Attributes | G 
0 SCODE 90 PIC CON REL LCL SHR EXE RD NOWRT LONG | 6 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | 6 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG | é 
9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG é 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 6 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 6 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG | é 
Total Space Allocated 3993 ¢ 
6 
ENTRY POINTS | ¢ 
Address Type Name | i 
0-00000000 L*1 UNBLNK | ¢ 
5 
VARIABLES | 3 
Address Type Name Address Type Name Address Type Name Address Type Name ; 
4 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS | 
13-09000008 I*2 BLI 10-09p0058¢ I*2 BLIPTR Han tints L*2 BLKOUT 2-0000012A I*2 BOFSET | é 
9-0000016C I*2 CBASE 9-000001 66 I*2 CINCR 4-00000004 I*2 COL 5-00000016 L*2 CONEXP é 
§-00000000 I*2 DEBUG 2-8 000014 L*2 ENDEXP 2-90000000 Led ENDFIL 11-00000004 I+ OLCH ¢ 
1 8 I*2 ERR -00000002 L*2 ERROR - 9000006 L*2 ERROUT 5-00000010 L*2 FLDLAS ¢ 
9-00000128 I*2 FOFSET 9-000000B6 I*2 FSIGN 9- 09 984 I*2 FSIZ 13-00008 00 I* NP § 
100000004 I*2 INPLIN 10- 9 9 OA I*2 INPTR 9- 99 1¢ I*2 LASLIN -9000 16 I*2 LFDSIZ 
Pe a a a 
9-0000086C I*2 NEGCNT att 000 I*4 NUM $0000 sf I*2 OBBITS 9-00000 sf I*2 OFSIZ i 
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IN -Q000001A TMPOUT 9- I* 1 
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VAX=11 FORTRAN 


ifege Bee19kC 01:57:56 DISKSUMSMASTER: FROLSS SRCIMDLSZ.FOR; 1° 


0001 01° 

000 LOGICAL*] FUNCTION GETMARLIN O14 

INCLUDE *SRC$:MDL32CMN.CMN O1¢ 

1 GETMA RL INE, FALSE. O16 

1 LINE(1)=° O1¢ 

$198 ap END=100) LINELEN, (LINE(K) .K=1,132) | Ore 

9109 99 FORMAT (Q.130A1) < é O1¢ 

110 GE TMARLIN=. TRUE. O1¢ 

0111 100 CONT 1NUE O16 

Oi¢ LINE(133)=";° O16 

oi C TYPE 9 CLINE (K) -K51 133) 01; 

114 = €98 FORMAT (1X, 72A1/1K, 72A1) 017 

0115 RETURN 011 

0116 END 017 

| 017 

017 

017 

| 017 

PROGRAM SECTIONS Ot 

Name Bytes Attributes | gif 

0 $coD 121 PIC CON REL LCL SHR EXE RD NOWRT LONG O1f 

1 SPDATA 7 PIC CON REL LCL SHR NOEXE RD NOWRT LONG Ole 

g SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG Org 

TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG Ore 

4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG O18 

5 LOG 30 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01k 

6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG l Ole 

7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG O1€ 

8 CHECKS 2 PIC OVR REL GBL SHR NOEXE RD WRT LONG 015 

9 PARSE 2160 PIC OVR REL GBL SHR NOEXE RD WRT LONG 015 

10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 015 

11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 015 

12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG gig 

Total Space Allocated 4031 | at 

015 

ENTRY POINTS | O18 

Address Type Name | ose 

0-00000000 L*1 GETMARLIN a3 

02¢ 

VARIABLES 8s 

Address Type Name Address Type Name Address Type Name Address Type Name | 03 

4-00000006 1*4 BINVAL 11-00000000 I*2 BLANK 9-0000021 182 BLBITS 9-00000332 I*2 BLFOFS ra 

12-00000002 1s2 BLI 19- 900028¢ I*2 BLIPTR 5- 0990012 13 } BLKOUT $-00000124 1*2 BOFSET 021 

9-0000016C I*2 CBASE - 6— I*2 CINCR 4-000 is COL 5-00000016 L*2 CONEXP Oe! 

CBRMRRERE Ig PMS EASSRRRNS Ese EMBEEP | ECHRRREERE XS Eataty URE TSE FOSS RS 
as - - - ® | 

$-000001s3 | FOF SET 9- 0B6 I*2 FSIGN 9-000 I*2 FSIZ 13-00900900 I*2 INP | 05: 


| 


m 6 
GETMARLIN 16-Sep-1984 01:57:23 + VAX-11 FORTRAN V3.4-56 Page 278 
g- 900-1384 84:35:88 DI SKSVMSMASTER: (MDL 32, SRCIMDL32. FOR: 1 | 
1*2  INPLIN 10- A6 I*2 IN - 0 I* - 51¢ I*2 LASLIN 
]* LEDSiZ 4- A I*2 LINELEN s- 198 I*2 LINTYP - 1§ I*2 LPTR 
I*2 LSBSI 12- 4 Ie 10- 19A I*2 MARPTR 12= 9¢ I*2 MAS | 
1*2 MNGCNT - $f 1*2 NEGCNT he 009 1*4 NUM - 4 I*2 OBBITS 
I*2 OFSIZ - I*2 OQUNSIZ -00 o1 L*2 POSOFF 5-00 9000 L*2 SMASK 0 
I*2 SOFSET - 904 L*2 STGEQL -00000006 L*2 STROK 11-00 00 Q I*2 TAB 1 
35 tt¥ ~50000008 ts UNDON 300000082 t25 UNTStT B-ORO080GA Led vane | 
- - - om | 
1*2 VOFSET §-00000% 38 I*2 vSIZ } 
é 
ARRAYS i 
Address Type Name Bytes Dimensions 1¢ 
6-O000000DA I*2 AMASK 4 (2) | 11 
6-00000196 I*2 ASIGN 4 (2) 12 
9-0000051E I*2 BLBASE 16 (81) 
19-0900019¢ I*2 BLIBUF 240 (120) 
9-00000662 I*2 BLINCR 1g¢ (81) 
6-C000017E I*2 BLSSIZ 20 (10) 
9-000003D8 I*2 BVALUE 162 (81) 
6-Q00000EA 1*3 BYTSIZ 26 (10) | 
6-000001B4 I*2 COMGBL 12 (6) 
6-000000C4 I*2 COMMAS 4 (2) 
6-00000112 I*2 CONBAS 0 (10) 
6-00000126 I*2 CONINC 0 (10) | 
9-0000012C I*2 CONPRE 2 (16) | 
9-0000014C I*2 CONTAG 36 (16) 
9-000007A6 I*2 CONTEX 198 (9, 11) 
6-000001D6 I*2 CPAREN 4 (@5 
6-000001D0 I*2 CPRCOM 6 (3) 
9-00000170 Isg CVALUE 162 (B1) 4 
6- C I*2 DEFEND 20 (10) 2 
6-00000022 I*2 DEFINI 20 (19) 5 
6-000001DE I*2 DOLBIT 26 (13) 5 
6-000001F8 I*2 DOLBYT 28 (14) é 
6-00000036 I*2 DOLDEF 12 (6) i 
6- 14 I*2 DOLFLD 24 (12) § 
6 16 I*2 DOLGBL 12 (6) § 
6 4 (2) : 
6 18 (9) ‘ 
6 12 (6) | 4 
6 TMAC 22 (11) ‘ 
6 DMAC 18 (9) ‘ 
6 18 (9) | ( 
6 UTAB 12 (6) | é 
6 14 (7) 
6 4 (2) | 
z XPOPN 4 (2) 
B 72 (36) 
6 4 (2) 
1 INBUF 166 3) | 
.- | 
) INE 138 (133) | 
é 18 (9) | 
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DISKSVMSMASTER: CMDL32 SRCIMDL32.FOR: 1°" ~ | 
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LABELS 
Address Label Address Label 
1-00000000 99° 0-0000006D 100 
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-Sep-19 1:57: VAX=11_ FORTRAN Page 280 
ifese en 138e it 35 33 DI SKSVMSMASTER: Rs EmoL3o° SRCIMDL32.FOR;1 ter 


' 
| 
SD 


1 
0904 SUBROUT INE ERRORF (MSGID) : 
INCLUDE © SRCS;MDL32CHN- CRN g 
105 € OUTPUT CONTENTS OF ‘LINE’ VIA PRINT 
10 C AND ERROR SAGE e 
108 FORMAT (*$2NDLF XUP=E-') 6 
109 GOTO (1 g. +344,5,6) MSGID 9 
110 TYPE 1 6 
111 GOT 9 
1g 1000  FORMAT('+error in error processing’) | é 
O11 1 TY 1 6 
114 GOT 6 
115 = 101 FORMAT('+syntax error’) 6 
116 2 TY | 6 
11 GOT | 6 
O18 102 FORMAT('+symbol or string too long’) 6 
119 4 TY 9 
0120 GOT 9 
0121 103 FORMAT ( +missing value’) | 9 
01 é 4 TYP 6 
01 GOTO 200 | 6 
0124 104 FORMAT('#Line too long’) 6 
0195S TYPE 105 | 6 
0126 GOTO 200 
0127 105 FORMAT(‘+missing close angle bracket") 
0128 866 TYPE 1 LAB 
0129 GOTO 2 
0130 106 FORMAT('+missing E (end) statement’) | 
0131 200 CONTIN E 
01 é TYPE 98, (LINE(1),1=1,LINELEN) 
1 98 FORMAT (Ix, UNE NELERDASS 
01 END 


7 
ERRORF ib-5e -1984 01:57:23 VAX-11 FORTRAN V3.4-56 Page 281. 
tat Yi gt 5:38 DI SKSVMSMASTER: CHOL 32, SRCIMDL32.FOR: 1 y 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 302. PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 SPDATA 194 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE R WRT LONG 
TEXT 431 PIC OVR REL GBL NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
8 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
8 CHECKS § PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 21 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 146 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 4399 
| 
ENTRY POINTS | 
Address Type Name 
0-00000000 ERRORF | 
VARIABLES | 
Address Type Name Address Type Name Address Type Name Address Type Name | 
4-00000006 I*4 BINVAL 11-00000000 iss BLANK a's 4 TH I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-Q0000016E I*2 CINCR 4-00000004 I*2 COL 5-00000016 ss CONE XP 
8-00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 
12-00000008 I* R 5-00000002 L*2 ERROR 5-O000000E L*2 ERROU 5-00000010 L*2 FLDLAS 
9-00000122 I*2 FOFSET 44494 I*2 FSIGN 4444 9 I*2 FSIZ 2-00000000 I*2 | 
le-Sonprove It P 10-Q00000A8 I*2 INPLIN 10-Q000000A6 I*2 INPTR ss 4 £4 I*2 LASLIN 
9 16 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 9's 64 BE I*2 LINTYP 5 Oho ho5K I* PTR | 
9-00000214 I*2 LSBSIZ HE a 4445444 9 #2 MAR 10-0000019A I*2 MARPTR 12-0000000C I*2 MAS 
I OR SE I*2 MNGCNT AP-0 944 4a I1*2 MSGID 8 Dp Oko Se I* EGCNT P4444 1*4 
cc a a 
13 ; Ted TAB 13-00000006 [#3 TRP $-9090001¢ tes FM ao000GOIA td TMPOUT | 
9-00000050 I*2 TOKTYP 1 ~Roeb OT Se I*2 TTY 5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 
5-0000000A L*2 VMASK -00000124 I*2 VOFSET 9-00000128 I*2 vVSI2Z 
ARRAYS | 
Address Type Name Bytes Dimensions 
& A 1*2) AMASK 4 (2) | 
g 196 I*2 ASIGN 4 @) 
S51E I*2 BLBASE 162 (81) 
10-0000019C I*2 BLIBUF 240 (120) 
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b-sen-19 4 tetas DI SKSVMSMASTER: EMOL 32 SRCIMDL32.FOR: 1° 


I*2 ZRLAHY 


-_ 


RSTLIN 180 (90) 

I*2 SEMSPC (3) 

1*2 SPCSTG 4 (2) 

I*2 SPHYSP (4) 
1*2 STRSTG 32 (16) 4 
1*2 SUFDEF (4) le 
1*2 SUFNAM 32 (16) 5 
I*2 TABEQS (4) é 
It? TABLAN 6 (3) | 1¢ 
I*2 TABOPR 6 (3) | 5 
I*2 TABPRN 10 (5) | Ve 
I*2 TABRAN 6 (3) 5 
I*2 ABSTG & (2) | S 
1*2 TAGNAM 32. (16) le 
Ie? TMPVAL 1 (81) | § 
I*2 TOKSTG (40) 
I1*2 UNDVLD 18 (9) 11 
I*2 UNITYP 4 (2) | ‘ 
4 (2) | : 

0 (5) | 


ARF 
LABELS | 
Address Label Address Label Address Label Address Label Address Label Address’ Label | 
0-0000004B8 1 0-00000064 3 0-0000007D 3 0-00000096 4 O-O00000AF 5 0-000000C8 6 
1-00000088 98° 1-00000000 99° 1-0000002D 101° 1-0000003D 102° 1-0000005A 103° 1-0000006B 104' 
1-0000007C 105° 1-0000009B8 106° 0-000000E1 200 1-00000010 1000° 1 
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Ses 


SUBROUTINE VIELDF 
ROUTINE TO HANDLE MDL VIELD SYNTAX 


INCLUDE 'SRC$:MDL32CMN.CMN' 
LOGICAL®1 GET IDENT -UNBLNK. GETNUM. IDENT ,GETMARLIN | 
BYTE TAB (8) EQULINE (| 2) . SAVENAME (32) 
DATA TAB5/9,9,9,9,9,0/ 
PREF 1X(1) =NAME (1) 
REF IX(2 
().£Q..FALSE.) GOTO 2000 


T 
(PREF IX NAME PREFIX) 
).NE.',*) GOTO 2000 


3s 


ETNUM(O)) BIT=NUM 
NBLNK().NE.',") GOTO 2000 


F 
0 
] 
F 
F 

L+ 
F (UNBLNK().NE.*<') GOTO 2000 
OL=COL+1 
F 
F 
A 
F 
F 


= 
ataat 
oCcao 


7: iataemeaticl GOTO 2000 


| 

| 

| 

| 

0 

UNBLNK().£Q.';') GOTO 700 

LL_ERRORF (1, SYNTAX) 

ETMARLIN().NE..TRUE.) GOTO 1500 

UNBLNK().£Q.'>') GOTO 1600 

UNBLNK() «EQ. *=") THEN | 
| 
| 
} 
| 


=CO 


+ 
(UNBLNK().NE.';") GOTO 2000 
NE (LINELEN#1)=0 
LL CONCAT(LINE(COL), TABS, EQULINE) 
tL PUTLINE CEQULINE LENGTH CEQULINE)) 


WAAAPIPIPUNINPYNPINUNININD 2 2 OO OO Os ew 


ENDIF 
IF (UNBLNK().NE.*<') GOTO 2000 
COL=COL+1 


C 
: SET UP COMMENT COPY FOR SPACE HOLDER DEFINITION 
CALL _MOVNAM(TABS(2) ,EQULINE) 
VFORM= 
IF (GETIDENT().NE..TRUE.) GOTO 900 
VF ORM=1 
CALL CONCAT('V_* PREFIX, EQULINE) 
CALL MOVNAM(NARE , SAV 
CALL CONCAT(SAVENAME -EQUL INE ,EQUL INE) 


CALL CONCAT(EQULINE, * ,EQULINE) 
CALL 1) ahaa (5) ,EQULINE ,EQULINE) 


eet a a 1 a ss a 2 ss 4 2 
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BINVAL) 
CALL CONCAT(NUMSTR,EQULINE ,EQULINE) 
900 SIZE=1 
IF (UNBLNK().NE.',') GOTO 2000 
COL=COL+1 
IF (GETNUM(O)) SIZE=NUM 
IF (UNBLNK().NE.",*) GOTO 2000 
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-Sep-1984 

COL=COL¢1 
MASKFORM=0 
IF (GETIDENT().NE..TRUE.) GOTO 950 
IF CIDENT('M' NAME) .NE.. TRUE.) GOTO 2000 
IF (VFORM.EQ.1) MASKFORM=1 
IF (UNBLNK().NE.'>') GOTO 2000 
COL=COL#1 
IF (UNBLNK().NE.'=") GOTO 2000 
COL=COL+ 
IF (UNBLNK().NE.':") GOTO 2000 
LINE (LINELEN+1)=0 
IF (COL.LT.LINELEN) THEN 

CALL CONCAT (TABS (4) , EQULINE, EQULINE) 
enp Att CONCAT (LINE (COL) ,EQULINE ,EQULINE) 
CALL PUTLINE(EQULINE,LENGTH(EQULINE) ) 
IF (MASKFORM.EQ.0) GOTO 960 


CALL CONCAT('M_', PREFIX, EQULINE) 

CALL CONCAT (SAVENAME EQUL INE ,EQUL INE) 

CALL CONCAT(EQULINE,’ SEQU * ,EQULINE) 

CALL CONCAT(TABS(5) ,EQULINE,EQULINE) 

BINVAL=SIZE 'TO FORCE 32 BIT CALC 
BINVAL=1SHFT(1 BINVAL? 

IF (BINVAL.EQ.'80000000'X) THEN 


VAX=11 FORTRA 


DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR; 


BINVAL="7FFFFFFF'X !AVOID INTEGER OVERFLOW 


ELSE 
BINVAL=BINVAL~1 
ENDIF 


D 
CALL MAKENUM(ISHFT(BINVAL,BIT)) 
CALL CONCAT (NUMSTR EQUL INE | EQUL 


CALL CONCAT(EQULINE,’ SEQU * ,EQULINE) 
CALL CONCAT(TAB5(5) ,EQULINE ,EQUL INE) 


BINVAL=SIZE 

CALL (BINVAL) 

CALL CONCAT (NUMSTR,EQULINE ,EQULINE) 
TiC + + tee iacnruaa iain 
GOTO 

CALL_ERRORF (5,NOCLOSEANGLE) 
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Sep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 

PROGRAM SECTIONS 
Name Bytes Attributes 00t 
0 S$CODE 890 PIC CON REL LCL SHR EXE RD NOWRT LONG oot 
1 SPDATA 30 PIC CON REL LCL SHR NOEXE RD NOWRT LONG Ot 
¢ SLOCAL 544 PIC CON REL LCL NOSHR NOEXE RD WRT LONG O1t 
TEXT 431 PIC OVR REL GBL R NOEXE RD WRT LONG 1" 
4 VARS 12 PIC OVR REL GBL SHR NOEXE RD WRT LONG 3 
5 LOG 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG 01 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 1" 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG gt 
8 CHECKS ; PIC OVR REL GBL SHR NOEXE RD WRT LONG O1 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 1" 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG ae 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG ot 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG | OT 
Total Space Allocated 5363 | 6! 
01; 
ENTRY POINTS | 3! 
Address Type Name aE 
0-00000000 VIELDF | Oe 
| 01; 
VARIABLES O13 
‘ 
Address Type Name Address Type Name Address Type Name Address Type Name 3 
4-00000006 1*4 BINVAL 2-Q00000AA I*2 BIT 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS | 01: 
9-00000332 ss BLFOFS 12-00000002 35 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 01; 
9-0000012A I*2 BOFSET -0000016C I*2 CBASE 9-Q000016E I*2 CINC 4-00000004 I*2 COL 01; 
5-00000016 L*2 CONEXP -00000000 I*2 DEBUG 5-00000014 L*2 ENDEXP 5-00000000 L*2 ENDFIL 01; 
1 I*2 EOLCH 12-00000008 I*2 ERR 5-00000002 iss ERRO 5-Q000000E L*2 ERROUT 01: 
5-00000010 L*2 FLDLAS 9-00000122 I*2 FOFSET 9-000000B6 I*2 FSIGN 9-000000B4 I*2 FSIZ 01: 
t2- It N 10-000000A8 I*2 INPLIN 10-Q000000A6 I*2 INPTR 9-0000051C I*2 LASLIN | or 
9-00000216 I*2 LFDSIZ 4-Q000000A I*2 LINELEN B-SonOni ge I*2 LINTYP 9-00000218 I*2 LPTR or 
9-00000214 I*2 LSBSIZ 12-00000004 I* AR 10-0000019A I*2 MARPT 12-0000000C I*2 MAS | 01 
2-000000B2 I*2 MASKFORM a 444 I*2 MNGCNT 9-0000086C I*2 NEGCNT am sai 2 1*2 NOCLOSEANGLE — 01 
4 1*4 9-00000334 I*2 OBBITS 9-Q000032E I*2 OFSIZ 9-00000350 I*2 OUNSIZ | Ot 
—Ronon le Leg POSOF F ae 44's $4 I*2 SIZE Passat L*2 SMASK p44 9 3 1's SOF SET ov 
§-2090000¢ iss tw s-D0000018 Led THPIN g-H000001A #3 IMPOUT "$7h0000080 {+3 TORTYP | O1. 

® - ® - - 

1200000008 135 TTY 5-00000008 L*2 UNDOK 4 46 14 I*2 UNISIZ 2-Q00000AE 35 VFORM | Q1 
-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 9-00000128 I*2 vSIZ | gt 
01 
ARRAYS ah 
Address Type Name Bytes Dimensions | Bii 
6-000000DA I*2 AMASK 4 (2) 01) 
6-00000196 I*2 ASIGN 4 (2) | 01 
9-0000051E I*2 BLBASE 162 (81) | 01 
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“Sep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR; 1 


FUNCTIONS AND SUBROUTINES REFERENCED 


| 
1*2 PRENAM 32. (16) | 8 } 
I*2 RANHYP (3) 
Ie RSTLIN 189 (39) | os! 
L*1 SAVENAME (32) 
I*2 SEMSPC 6 (3) O22 
I*2 SPCSTG 4 (2) O22 
I*2 SPHYSP (4) 0 § 
I*2 STRSTG 32. (16) | O2e 
I*2 SUFDEF (4) | Q.. 
i*2 SUF 32 (16) O$6 
L*] TABS (6) | O2e 
I*2 TABEQS (4) Os 
I*2 TABLAN (3) | 
1*2 TABOPR 6 (3) 02 
1*2 TABPRN 10 (5) 8 
I*2 TABRAN 6 (3) 023 
I*2 TABSTG 4 (2) OS3 
I1*2 TAGNAM 36 (16) 02: 
I*2  TMPVAL 162 (81) O53 
I1*2 TOKSTG 80 (40) 02: 
I*2 UNDVLD 18 (9) Oe: 
I*2 UNITYP 4 (2) Oe: 
I*2 ZEROSG é (9) Oe: 
I*2 ZRLAHY 10 (5) 054 
024 
LABELS 85¢ 
| 
Address Label Address Label Address Label Address Label Address Label Address Label | O54 
0-00000096 700 0-0000017F 900 0-000001DE 950 0-00000308 960 0-00000368 980 0-00000370 1500 
0-00000379 1600 0-0000008E 2000 
Type Name Type Name Type Name Type Name Type Name Type Name 
CONCAT ERRORF L*1 GETIDENT L*1 GETMARLIN L*1 GETNUM L*1 IDENT | 
1*2 LENGTH MAKENUM MOVNAM PUTLINE L*1 UNBLNK 
| 
| 
| 
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SUBROUTINE D FIN If 
INCLUDE ‘SRCS:MDL32CMN 
LOGICAL®1 GETIDENT 2 UNBCNK GETNUM, IDENT ,GETMARLIN 


BYTE TAB3(4) DEF S¥M(133) , COMMENT (133) 
DATA TAB3/9,9,9,0/ 


6 AM 
DEF FLAG=0 


CALL PUTLINE (LINE ,LINELEN) 
IF (GETMARLIN().£0..FALSE.) GOTO 3000 


PROCESS SDEFINI INPUT. 


waked 


MIMNINININNNIND 3 2 eS OO Ot oO 


IF CUNBLNK () F003") GOTO 90 
IF (GETID DENT ().£9..FALSE.) GOTO 90 
IF CIDENT('’SEQU',NAME).EQ.. TRUE.) GOTO 90 
IF (IDENT C*SDEF" CNAME) “EQ. TRUE: ) GOTO 20 
IF CIDENT(*SVIELD' NAME) .£Q..TRUE.) GOTO 300 
IF CIDENT(* VIELD* (NAME) .EQ.. TRUE.) GOTO 300 
IF CIDENT(*SEQULST’ NAME) .£Q.. TRUE.) GOTO 400 
IF CIDENT('SDEFEND' .NAME) .£Q.. TRUE.) THEN 
IF (DEFFLAG. EQ..1) THEN 
IF (COMMENTSIZE.GT.0) THEN 
CALL CONCAT(TABS, DEFSYM, DEF SYM) 
wo ght CONCAT (COMMENT , DEF SYM, DEF SYM) 
CALL PUTLINE (DEF SYM,LENGTH(DEFSYM) ) 
ENDIF 
RETURN 
ENDIF 


c 
: CHECK FOR .=NN SYNTAX 
IF CIDENT(".*,NAME).EQ.. TRUE.) THEN 
IF (DEFFLAG.EQ.1) THEN 
IF (COMMENT THEN 
CALL SereArtiande DEF Syn DEFSYM) 
enp Gate CONCAT (COMMENT , DEF SYM, DEF SYM) 
enp (att PUTLINE (DEF SYM, LENGTH(DEF SYM) ) 
DEFFLAG=0 
GOTO 90 
, ENDIF 
: NOW FINALLY HANDLE .BLKX DIRECTIVE MERGING 
F CCIDENTC, BLKL* NAME). EQ. . FALSE. ) 
(IDENT(* * NAME) ALSE.).A 
; CIDENT(* “BLKU* (MARE) “EQ. FALSE.) 
(IDENT(".BLKQ" .NAME) EQ. . FALSE.) 


If (DEFFLAG.EQ.0) GoTo 90 
CALL MOVNAMCNARE E ,PREF IX) 


of 


“AN D: 
} GOTO 2000 
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IF (UNBLNK().£Q.°:') GOTO 150 
IF (GETNUM(O) EQ, FALSE.) oT 2000 
IF (UNBLNK().NE.*:') GOTO 200 
150 CALL CONCAT(9, DEF SYM, DEF SYM) 
CALL CONCAT (PREFIX, DEF SYM, DEF SYM) 
If (NUM.NE.1) THEN 
CALL CONCAT(9, DEF SYM, DEF SYM) 
CALL MAKENUM (NUM) 
enp (att CONCAT (NUMSTR,DEF SYM, DEF SYM) 
IF (COMMENTSIZE.NE.O) TH 
CALL CONCAT(9,DEFSYM,DEFSYM 
IF (NUM.EQ.1) CALL CON wats DEF SYM, DEF SYM) 


wo htt CONCAT (COMMENT , DEFSYM, DEF SYM) 
CALL PUTL INE (DEFSY, ,LENGTH(DEF SYM) ) 
GOTO 100 
200 IF (DEFELAG. £Q.1) THEN 
IF (COMMENTSIZE.G THEN 
CALL SOaArtiande Der Syn DEF SYM) 
CALL CONCAT (COMMENT ,DEF SYM, DEF SYM) 


ENDIF 
rau PUTLINE (DEF SYM,LENGTH(DEF SYM) ) 


END 
oF ce AG=0 
IF wy ts HE EQ..FALSE.) GOTO 2000 
CALL MOVNAM(NAME ,DEF SYM) 
CALL CONCAT(DEFSYM, SDEF * DEFSYM) 
IF (UNBLNK().NE.°;*) GOTO 2000 
DEFFLAG=1 
COMMENT (1)=0 
IF (COL.LT.LINELEN) THEN 
LINE(LINELEN+1)=0 
enbite MOVNAM (LINE (COL) , COMMENT) 
COMMENTSIZE=LENGTH( COMMENT) 
GOTO 100 
300 CALL VIELDF 
GOTO 100 
400 CONTINUE 
CALL at 


C THE FOLLOWING CODE WILL SUPPRESS EQULST PROCESSING 
C CALL PUT LINE (L INE LINELEN) 
¢ IF (GETMARL NE; s TRUE, ) GOTO 2000 
C IF _CONBENKO Near GOTO 90 
C 
2000 CALL ERRORF (1, SYNTAX) 
3000 —— CALL_ ERRORF (6, MISSINGE) 
RE TURN 


END 
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DEF INIF Vg-sep-19 4 01:57:38 VAX=11 FORTRAN ¥3.4556 
-Sep-1984 01:57:26 DISKSVMSMASTER:CMDL32.SRCIMDL32.FOR;1 | 
| 
PROGRAM SECTIONS 
Name Bytes Attributes | ‘ 
0 SCODE 746 PIC CON REL LCL SHR EXE RD NOWRT LONG ‘ 
1 SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG ¢ 
¢ SLOCAL 728 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 
& VARS 13 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 
5 LOG 3 PIC OVR REL GBL SHR NOEXE RD WRT LONG ; 
6 STGS 586 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
7 MORSTG 4 PIC OVR REL GBL SHR NOEXE RD WRT LONG ¢ 
8 CHECKS ; PIC OVR REL GBL SHR NOEXE RD WRT LONG ( 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG ( 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG ’ 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG ( 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG : 
4 
Total Space Allocated 5462 | 
( 
ENTRY POINTS 
Address Type Name ( 
0-00000000 DEF INIF 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name ¢ 
4-00000006 1I*4 BINVAL 11-00000000 I*2 BLANK 2-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 9-0000012A I*2 BOFSET 
9-0000016C I*2 CBASE 9-0000016E I*2 CINCR 4-00000004 I*2 COL 2-00000110 I*2 COMMENTSIZE 
5-00000016 L*2 CONEXP 8-00000000 I*2 DEBUG ¢-0000010 I*2 DEFFLAG 5-00000014 L*2 ENDEXP 
5-00000000 L*2 ENDFIL 11-00000004 I*2 EOLCH 1 ~9000009 I*2 ERR 5-00000002 L*2 ERROR 
5-0000000E L*2 ERROU 5-00000010 L*2 FLDLAS 9-000001 I*2 FOFSET 9-000000B6 I*2 FSIGN 
9-000000B4 I*2 FSIZ 12-00000000 I*2 INP 10-Q00000A8 I*2 INPLIN 10-Q00000A6 I*2 INPTR 
9 51C I*2 LASLIN ae 44 T3b4 I*2 LFDSIZ 4-Q000000A I*2 LINELEN 44's BE I*2 LINTYP 
3-00000018 I*2 LPT 9- 9006 14 I*2 LSBSIZ 13-00000 04 I*2 MAR 10-0000019A I*2 MARPTR 
2 I*2 MAS g 0000114 I*2 MISSINGE -0000086E I*2 MNGCNT 3-000086¢ I*2 NEGCNT 
4- 1*4 -00000334 I*2 OBBITS 9-00000 I*2 OFSIZ 9-00000330 I*2 OUNSIZ 
18 L*2 POSOFF a 90000¢ L*2 SMASK 9-0 9 01 I*2 SOFSET -9000000% L*2 STGEQL 
L*2 STROK - I*2 SYNTAX 11- 0 I*2 TAB 12-00000006 I* P 
-0000001C L*2 TMPIN -0000001A L*2 TMPOUT 9-000000 I*2 TOKTYP 12-Q000000A I*2 TTY 
5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-0000000A L*2 VMASK 9-00000124 I*2 VOFSET 
9-00000128 I*2 vSI2 | 
ARRAYS | 
Address Type Name Bytes Dimensions 
6-000000DA 133 AMASK 4 (2) | 
6-00000196 I*2 ASIGN 4 (2) 
9-0000051E I*2 BLBASE 162 (81) 
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Ip-s0 Sep-1984 t 3 20: 33 VAX=-11 FORTRAN Ri, 33° 
-Sep-1984 01: 6 DISKSVMSMASTER: LMDL32.SRCIMDL32.FOR;1 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
CONCAT EQULSTF ERRORF L*1 GETIDENT L*1 GETMARLIN L*1 GETNUM 
L*1 IDENT I*2 LENGTH MAKENUM MOVNAM PUTLINE L*1 UNBLNK 


VIELDF 


Le] PREFIX BB (138 | 
I*2 PRENAM (16) 
I*2 RANHYP 8 <3) 
I*2 RSTLIN 180 (90) 
I*2 SEMSPC 6 (3) 
I*2 SPCSTG 4 (2) 
I*2 SPHYSP (4) 
I*2 STRSTG 32. (16) 
I*2 SUFDEF (4) 
I*2 SUFNAM 32. (16) 
L*} TABS 4 (4) | 
I*2 TABEQS 4 (4) 
I*2 1ABLAN (3) 
I*2 TAB 6 (3) 
I*2 TABPRN 10 (5) 
I*2 TABRAN 6 (3) 
I*2 TABSTG 4 (2) 
1*2 TAGNAM 33 (16) 
I*2 TMPVAL 162 (81) 
I*2 TOKSTG 80 (40) 
I*2 UNDVLD 18 (9) 
2 UNITYP 4 (2) | 
I*2 ZEROSG 4 tH 
I*2 ZRLAHY 10 (5) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label | 
0-00000012 90 0-00000019 100 0-0000019D 150 0-00000217 200 0-000002C0 300 0-000002CA 400 
0-000002D4 2000 0-000002E0 3000 


1 
: SUBROUTINE PUTLINE (STRING, LENGTH) 
BYTE STRING(®) 
J=LENGTH 
5 DO J2J,1,°1 
IF (STRING(JS.NE.* ') GOTO 200 
100 CONTINUE 
8 WRITE(8, 98) 
9009 98 FORMAT (5 
10 RETURN 
11 300 WRITE(B, 99) (STRING(I),I=1,J) 
i FORMAT (<J> 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 


Address Type Name 
0-00000000 PUTLINE 
VARIABLES 
Address Type Name 
2-00000002 I*2 | 
ARRAYS 
Add:ess Type Name 
AP-000000048 L*1 STRING 
LABELS 
Address Label Address 
1-00000000 98° 1-00000001 
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Bytes Attributes 
147. PIC CON REL LCL SHR EXE RD NOWRT LONG 
9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
180 
Address Type Name Address Type Name 
2-00000000 I*2 J AP-000000088 I*2 LENGTH 
Bytes Dimensions 
ee (#) 
Label Address Label Address’ Label 
99° ee 100 0-0000004D 200 


P 
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SUBROUTINE MAKENUM(] 
INCLUDE *SRC$:MD U3oCHN 


1 
1 INTEGER®4 
44 BYTE EPRING (12) 
109 IF (CI.GT. £56). OR.(1.L7.0)) THEN 
110 CAL MOVN AMC <A xX" ,NUMSTR) 
111 ENCODE (11-98, STRING) l 
M6 . 
gt STR(1)=0 
114 pono I 
0115 ENDIF 
B18 STRING( ‘mf 
011 DO 100 J 
0118 IF 108 154 Ty NE." *) GOTO 200 
0119 100 CONT INUE 
3iso 200 CALL CONCAT(STRING(J) ,NUMSTR,NUMSTR) 
81$¢ 98 FORMAT(710,°>*) 
012 99 FORMAT(1115 
Bist 
0125 END 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 $COD 154 PIC CON REL 
1 SPDATA 13. PIC CON REL 
§ SLOCAL 52 PIC CON REL 
TEXT 431 PIC OVR REL 
4 VARS 12 PIC OVR REL 
5 LOG 30 PIC OVR REL 
6 STGS 586 PIC OVR REL 
7 MORSTS 4 PIC OVR REL 
8 CHECKS 2 PIC OVR REL 
9 PARSE 2160 PIC OVR REL 
10 FILES 654 PIC OVR REL 
11 SPCKR 6 PIC OVR REL 
12 LUNS 14 PIC OVR REL 
Total Space Allocated 4118 
ENTRY POINTS 
Address Type Name 
0-00000000 MAKENUM 


D 
1 


8 
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-Sep-1984 
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1:57:26 
RD NOWRT 
RD NOWRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
RD WRT 
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-Sep-19 DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR;1 
VARIABLES | 
Address Type Name Address Type Name Address Type Name Address Type Name | 
4-00000 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000212 I*2 BLBITS 9-00000332 I*2 BLFOFS 
TeSoeenee I*2 BLI 10-0090 oe I*2 BLIPTR 5- 8 618 L*2 BLKOUT 300000124 I*2 BOFSET 
-0000016C I*2 CBASE “QO00016E I*2 CINCR 4- 4 I*2 COL 44 016 L*2 CONEXP 
I*2 DEBUG -0000 oS L*2 ENDEXP 2 0 0 L*2 ENDFIL 11-00000004 I*2 EOLCH 
1 I*2 ERR - 4 02 L*2 ERROR -00 E L*2 ERROUT 5- 444 9h L*2 FLDLAS 
1 I*2 FOFSET 9- 388 I*2 FSIGN 9-00 pone. I*2 FSIZ AP-00000004a I*4 | 
I*2 INP 10-Q00000A8 I*2 INPLIN 10-000000A6 I*2 INPTR 2-0000000C I*2 J 
~REo60 \f I*2 LASLIN 9- $888 19 I*2 LFDSIZ $= 60008 OA I*2 LINELEN aes SSE ee: LINTYP 
9 1 I* PT 9- 14 I*2 LSBSIZ .* 04 I*2 MAR 10-0000019A I*2 MARPTR 
Fe eae 8 | A 9-0000086E I*2 MNGCNT -00000 $c I*2 NEGCNT 4-00000000 I*4 NUM 
9-000003 I*2 OBBITS 9-00000 f I*2 OFSIZ 9-00000330 I*2 OUNSIZ 5-00000018 L*2 POSOFF 
5-0000000C L*2 SMASK 9-000001 I*2 SOFSET 5-00000004 L*2 STGEQL 5-00000006 L*2 STROK 
11-00000002 I*2 T $4 $3444 6 I*2 TMP 5-0000001C rss TMPIN 5-0000001A L*2 TMPOUT 
9-00000050 I*2 TOKTYP 12-Q000000A I*2 TTY 5-00000008 L*2 UNDOK 9-000000B2 I*2 UNISIZ 
5-O000000A L*2 VMASK 9-00000124 I*2 VOFSET 9-00000128 I*2 vSI2Z 
ARRAYS 
Address Type Name Bytes Dimensions 
I*2 AMASK 4 (3) 
I*2 ASIGN 4 (2) 
I*2 BLBASE 162 (81) 
I*2 BLIBUF 240 (120) 
I*2 BLINCR 162 (81) 
I*2 BLSSIZ 20 (10) 
I*2 BVALUE 162 (81) 
I*2 BYTSIZ 20 (10) 
I*2 COMGBL 12 (6) 
i$ COMMAS 4 (2) 
I*2 CONBAS 20 (10) 
I*2 CONINC $3 (10) 
I*2 CONPRE 2 (16) 
I*2 CONTAG 32. (16) 
I*2 CONTEX 198 (9, 11) 
I*2 CPAREN 4 (5 
I*2 CPRCOM 6 (3) 
I*2 CVALUE 162 (81) 
I*2 DEFEND Q (10) 
I*2 DEFINI 0 (10) 
I*2 DOLBIT 6 (13) 
I*2 DOLBYT ¢3 (14) 
I*2 DOLDEF 1 (6) 
I*2 DOLFLD 24 (12) 
I*2 DOLGBL 12 (6) 
I*2 DOLLAR 4 (2) 
I*2 DOLVLD 18 (9) 
I*2 DOTBLK \s (6) 
I*2 DOTEQS 1 (5) 
I*2 DOTMAC 22 (11) 
I*2 ENDMAC 1 (9) 
I*2 EQULST 1 (9) 


} 
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Address Label 
0-00000087 200 


LABELS 
Address Label 
1-00000004 98° 


Address Label Address 
1-0000000A 99° ee 


Label 
100 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
CONCAT 


Type Name 
MOVNAM 
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400 


500 


2000 
700 


750 


1 m. -1984 
f- Sep-19 4 


SUBROUTINE EQULSTF 
ROUTINE TO HANDLE MDL EQULST SYNTAX 


INCLUDE ‘SRCS$:MDL32CMN.CMN' 


LOGICAL*1 GETIDENT,UNBLNK,GETNUM, IDENT,GETMARLIN 
BYTE if + ) gEQULINE CY 2), SAVENAME ( 2) 

DATA TAB5S/ $.9 0 9 0 

DATA KNOWNV 


L/ 
INTEGER*4 STARTVAL, INCRVAL 


IF (GETIDENT().EQ..FALSE.) GOTO 2000 
CALL MOVNAM (NAHE ,PREF IX) 

: UNBLNK ).NE.*,") GOTO 2000 
GETIDENT(). EQ..FALSE.) GOTO 2000 
IDENT (NAME. $GBL').NE..TRUE.) GOTO 2000 
. UNBLNK() . he. GOTO 2000 
GETNUM(O).EQ..FALSE.) THEN 
F (UNBLNK().EQ.",°.AND.KNOWNVAL.EQ.1) GOTO 500 
NOWNVAL=0 
ALL PUTLINE (LINE LINELEN) 
F (GETMARLIN() .NE.. TRUE. GOTO 2000 
CALL PUTLINE (Lig LINELEN) 
IF (UNBLNK().NE.'>") GOTO 400 
RETURN 


END IF 

KNOWNVAL=1 

STARTVAL=NUM 

IF cost GOTO 2000 


IF 
co 
IF 
IF 
IF 
co 
IF 


nk A ee ee | ee ee ee | ee 


L=1 
GETNUNCOD) INCRVAL=NUM 
oe ).NE.',") GOTO 2000 


ce 
Som »NE.*<") GOTO 2000 
uscoust -NE.*=") GOTO 2000 


“CONBLN K().€0.":") GOTO 750 

ERRORF Cie SYNTAX) 

ETMARLIN(). NE..TRUE.) GOTO 1500 
NBLNK().EQ.'>') GOTO 1600 
NBLNK() EQ." -") THEN 


roe ee Py GOTO _2000 

(COL. iP GOTO 700 

INE (COL) , TABS ,,EQULINE) 
EQUL INE ,LENGTH(EQULIN:)) 


eacaraususn eas 
ocn 


a 


‘NG 
U 
U 
0 
F 
F 
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ie »NE.*<") GOTO 2000 


IDENT(). ws > het ) GOTO 2000 
LNK().NE.*,*) GOTO 900 
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oO 


L+1 
ETNUM(1)) THEN 
VAL=NUM 


PAA 


OME HERE IF EQUATE VALUE IS NOT 
SYMBOLS IN THE VALUE EXPRESS] 
ALUE EXPRESSION 


NOW WE CAN ATTEMPT TO FIND THE END OF THIS EXPRESSION BY PAIRING ‘<' AND '>* 
OPENCNT=0 
OUTFLG=0 

800 BEGCO 


0 =COL,132 

IF (UNBLNK().EQ.'<") THEN 
OPENCNT=OPENCNT+1 
GOTO 850 


CALCUABL 
ON OR THE 


AOQDOOOND 
<oo- 
~” 


ENDIF 

IF (UNBLNK().EQ.°>") THEN 
OPENCNT=OPENCNT=1 
IF (OPENCNT.EQ.-1) GOTO 875 
GOTO 850 


F (UNBLNK().EQ.°:") THEN 
IF (OUTFLG.EQ.0) THEN 

CONCAT (NAME , PREF IX, EQULINE) 

CALL CONCAT(EQULINE,' $EQU ',EQULINE) 

CALL CONCA ABS (5) ,EQULINE ,EQUL INE) 


( 

LEN 

(LINE (BEGCOL) ,EQULINE ,EQULINE) 
ECEQULINE ,LENGTH(EQUL INE) ) 


ELSE 

CALL PUTLINE(LINE,LINELEN) 
IF (GETMARLIN().NE..TRUE.) GOTO 1500 
GOTO 800 


ENDIF 
850 CONT INUE 
GOTO 2000 
875 ENDCOL=COL 
COL=COL¢1 
IF (UNBLNK().NE."=") GOTO 2000 
COL=COL¢1 
IF (UNBLNK().NE.':") GOTO 2000 
IF (OUTFLG.EQ.0) TH 
CALL CONCAT (NAME ,PREFIX,EQULINE) 
CALL CONCAT(EQUL INE, ° $€QU —s" ,EQULINE) 
CALL CONCAT(TABS(5) .EQULINE,EQULINE) 


ELSE 
EQULINE(1)=0 
NDIF 

LINE (ENDCOL)=0 


CALL CONCAT (LINE (BEGCOL) ,EQULINE ,EQULINE) 
LINE (LINELEN+1)=0 
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IF (COL.LT.LINELEN) 
CALL CONCAT (TABS ( 
CALL CONCAT (LINE ( 

E 


ENDIF 
cael . ene . 


TH 
5), 
coc 
LENGTH(EQULINE) ) 


BINVAL=STARTVAL 
ST ARTVAL=STARTVAL +INCRVAL 

IF (UNBLNK().N ) GOTO 2000 

COL=COL ri 

IF (UNBLNK().NE.'=") GOTO 2000 

COL=COL¢ \ 

IF (UNBLNK().NE.':") GOTO 2000 

CALL CONCAT (ARE PREFIX EQUL INE) 

CALL CONCAT( mas $édu * EQULINE) 
CALL CONCA ras (5) * EQULINE, EQULINE) 

CALL MAKENUM(B 

CALL CONCAT CNUASIR sEQULINE ,EQULINE) 


N) THEN 
AL AT(TAB5S (4) ,EQULINE ,EQULINE) 
CALL CONCAT(LINE (COL) ,EQULINE ,EQULINE) 


ENDI 
CALL PUTLINE (EQULINE ,LENGTH(EQULINE)) 
GOTO 700 


CALL ERRORF (5,NOCLOSEANGLE) 
tee 
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PROGRAM SECTIONS | 


Name Bytes Attributes 
0 SCODE 1168 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 4 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 464 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
TEXT 431 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 VARS 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 LOG ; PIC OVR REL GBL SHR NOEXE RD WRT LONG 
§ STGS 586 PIC OVR REL GB SHR NOEXE RD WRT LONG 
MORSTG 4 PIC OVR REL GB SHR NOEXE RD WRT LONG 
8 CHECKS 5 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
9 PARSE 216 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
10 FILES 654 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
11 SPCHR 6 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
12 LUNS 14 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5555 


ENTRY POINTS 
Address Type Name 


0-00000000 EQULSTF 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
assis £3 I*2 BEGCOL 4-00000006 I*4 BINVAL 11-00000000 I*2 BLANK 9-00000 \ I*2 BLBITS 
9-00000332 I*2 BLFOFS 12-00000002 I*2 BLI 10-0000028C I*2 BLIPTR 5-00000012 L*2 BLKOUT 
9-0000012A I*2 BOFSET 9-0000016C I*2 CBASE 9-0000016E I*2 CINC 4-00 4 | 
5-00000016 L*2 CONEXP 8-00000000 I*2 DEBUG -00000084 I* 5-00000014 
rae sissies L*2 ENDFIL 13738880016 I*2 EOLC 12-00000008 I*2 ERR 5-00000002 
-QO000000E L*2 ERROU 5-00000010 L*2 FLDLAS FOO OO AES I*2 FOFSET a 4448 I*2 FSIGN 
9-00000084 I*2 FSIZ me 44454 449 I*4 INCRVAL 4444 I*2 INP 10-Q00000A8 I*2 INPLIN 
10-000000A6 I*2 INPTR -Q00000AA I*2 KNOWNVAL “Fon Ons & I*2 LASLIN 9-00000216 I*2 LFDSIZ 
5 Bp bO he I*2 LINELEN a0 454 9453 I*2 LINTYP oe sss td I*2 LPTR 9-00000214 I*2 LSBSIZ 
1 It R 10- 44d A I*2 MARPTR 12-0000000C I*2 MAS 9-00000 $f I*2 MNGCNT 
~RoOpO RSE I*2 NEGCNT -000000B6 I*2 NOCLOSEANGLE 464 I*4 NUM 9-00000334 I*2 OBBITS 
I*2 OFSIZ - bp Bae I*2 OPENCNT 44 I*2 OUNSIZ assist I*2 OUTFLG 
18 L*2 POSOFF - oc L* MASK 9-000001 I*2 SOFSET -000000B8 I*4 STARTVAL 
L*2 STGEQL - 8p 006 L*2 STROK asses tad I*2 SYNTAX 11-00000002 I*2 T 
12-00000006 I*2 TMP - itt L*2 TMPIN mais a's L*2 TMPOUT 9-00000050 I*2 TOKTYP 
-“O000000A I*2 TTY -00000 oe L*2 UNDOK 9-000000B2 I*2 UNISIZ 5-Q000000A L*2 VMASK 
9-00000124 I*2 VOFSET 9-000001 I*2 VSI2Z 
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LABELS 
Address Label 
0-00000094 400 
0-000002FD 875 


FUNCTIONS AND SUBROUTINES REFERENCED 
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CONCAT 
1*2 LENGTH 


ONE SHF 


ZRLAHY 


Address 


0-000000C4 
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ERRORF 


— _ 
= Ww Ww Wo WW Ww 
SH PWN LAO AOA VOID LOMO PWN EO 


_ 
—OOw 


os 


Label 


500 
900 


MAKENUM 


eee ~LnA ~~ww 
~ 


—_—-_ 


LL LO LO em Lm mm ee em ym my ey am, lm, mf, fm, lm, fm, fm, fm, fm, i, im, fm, 
~~~ 


WIPO FO PW EO FEN OW SS BW 
-—~eww OO ewe www YY Ow Ow Ye YS NIOW~ OW OCC OW™ 


Address Label 


0-00000133 700 
O-O000003CF 950 


Type Name 


L*1 GETIDENT 
MOVNAM 


Address Label 


0-00000172 750 
0-00000486 1500 


Type Name 


L*1 GETMARLIN 
PUTLINE 


VAX=11 FORTRAN 


Ener ie 
DISKSVMSMASTER: CMDL32.SRCIMDL32.FOR; 


Address’ Label 


0-0000021C 800 
0-0000048F 1600 


oo 


Type 
L*1 


Type Name 


L*1 GETNUM 
L*1  UNBLNK 


Address 


“QOO002EE 850 
-0000012B 2000 
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1F =Sep-1984 01:57: AX=11 FORTRAN \3.4- Page 305. 
— ME een Fee Oh aoiSs BA CORE FEN Feat sS°sacompL3z2.FOR:I°% > 
COMMAND QUALIFIERS 
FORTRAN /NOI4/LIS=L1S$:MDL32/0BJ=0BJ$:MDL32 MSRCS$:MDL32 


/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOLS , TRACEBACK) 
/STANDARD=(NOSYNTAX , NOSOURCE_FORM) 

/SHOW= (NOPREPROCESSOR -NOINCLODE MAP) : 

/F77 /NOG_FLOATING /NOI4 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_RESERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS | 


Run Time: 138.40 seconds 
Elapsed Time: ¢83-7" seconds 
Page Faults: 30 

Dynamic Memory: 288 pages 
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